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Only Microware's OS-9 

Operating System Covers 

the Entire 68000 Spectrum 



MICROWARE'S OS-9 




ROM-BASED 
CONTROL 
SYSTEMS 



F10PPV-OISK BASED 

PERSONAL 

COMPUTERS 



SMALL SCALE 
TIMESHARING 
IMS 



LARBE- SCALE 

TIMESHARING 

SYSTEMS 



HAND-HELD 
COMPUTERS 



HARDWARE SOn WARE 
DEVELOPMENT SYSTEMS 



II U U'.ER 
MULTITASKING SYSTEMS 



MEDIUM-SCALE 
TIMESHARING SYSTEMS 






SMALL SYSTEMS 



LARGE SYSTEMS 



Is complicated software and expensive hardware 
keeping you back from Unix? Look into OS 9. the 
operating system from Microwaie that gives 68000 systems 
a Unix-style environment with much less overhead and 
complexity. 

OS-9 is versatile, inexpensive, and delivers outstanding 
performance on any size system. The OS-9 executive is 
much smaller and far moie ef- 
ficient than Unix because it's 
written in fast, compact as- 
sembly language making it 
ideal for critical real-time ap- 
plications. OS-9 can run on 
a broad range of 8 to S2 bil 
systems based on the 68000 
or 6809 family MPUs from 
ROM-based industrial con- 
trollers up to laige multiuser 
systems. 

OS-9S OUTSTANDING 

C COMPILER IS 
YOUR BRIDGE TO UNIX 

Microwaie 's C compiler tech- 
nology is another OS-9 advantage. The compiler produces 
extremely fast, compact, and ROMable code. You can easily 
develop and port system or application software back and 
forth to standard Unix systems. Cross-compiler versions for 



Key OS-9 Features At A Glance 

Compact (16K) ROMable executive written in assembly 

language 

User "shell" and complete utility set written in C 

C source code level compatibility with Unix 

Full Multitasking/multiuser capabilities 

Modular design - extremely easy to adapt, modify, or 

expand 

Unix-type tree structured file system 

Rugged "crash proof file structure with lecord locking 

Works well with floppy disk or ROM-based systems 

Uses hardwaie or software memory management 

High performance C. Pascal, Basic and Cobol compilers 



VAX and PDP- 1 1 make coordinated Unix/OS-9 software 
development a pleas uie. 

SUPPORT FOR MODULAR SOFTWARE 
- AN OS-9 EXCLUSIVE 

Comprehensive support for modular software puts OS-9 
a generation ahead of other cyerating systems. It multiplies 
programmer productivity ana memory efficiency. Applica- 
tion software can be built 
from individually testable 
software modules including 
standard "library" modules. 
The modular structuie lets 
you customize and recon- 
figure OS-9 for specific hard- 
ware easily and quickly, 



A SYSTEM WITH 

A PROVEN 
TRACK RECORD 



Once an underground 
classic, OS-9 is now a solid 
hit. Since 1980 OS 9 has 
been ported to over a hun- 
dred 6809 and 68000 

systems under license to so me of the biggest names in the 

business. OS-9 has been imbedded in numerous consumer. 

industrial, and OEM products, and is supported by many 

independent software suppliers 
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OS 9 u a trademark of Microwatt and Motorola. Unix ia a trademark of Bell Laba 
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GfTlX 68020 DEVELOPMENT SYSTEM 

A Multi-user, Multi-tasking software development system for use with all 68000 family processors. 




HARDWARE FEATURES 



• The GMX-020 CPU board has: the MC68020 32-bit processor, a 4K 
Byte no wait-state instruction cache, high-speed MMU, and a full- 
featured hardware time of day clock/calendar with battery back- 
up. It also provides for an optional 68881 floating point co- 
processor. 

• 1 Megabyte of high speed static RAM. 

• Intelligent Serial and Parallel I/O Processor boards significantly 
reduce system overhead by handling routine I/O functions. This 
frees up the host CPU for running user programs. The result Is a 
speed up of system performance and allows all terminals to run at 
up to 19. 2K baud. 

• The system hardware will support up to 39 terminals. 

• Powered by a constant voltage ferro- resonant power supply that In- 
sures proper system operation under adverse AC power input condi- 
tions. 

• DMA hard disk Interface and DMA double density floppy disk con- 
troller are used for data transfers at full bus speed. The DMA hard 
disk drive controller provides automatic 22 -bit burst data error 
detection and 11 -bit burst error correction. 

• A selection of hard disk drives with capacities from 19 to 85 
Megabytes, removeable pack hard disk drives, streaming tape 
drives, and floppy disk drives is available. 

UNK a i novum n *J 4 1. 

UtBi irtfMuiii a in. u S (mtmiw 

UnlFLEX S i trjdwtuik <jl T«twwJ Syjtuio CW&iNuttt. Sue 

QUI UK 6IMK KB MMnirtt Ot GIMH 1« 

GIMIX, Inc.. a Chicago based microcomputer company established in 1975, has produced state of the art microcomputer systems based on Motorola 6800 and 
6809 microprocessors. GIMIX systems are in use in Industry,, Hospitals, Universities, Research Organiations, and by Software Developers. GIMIX was awarded 
the prestigious President's "E" Certificate for Exports in 1984. 



SOFTWARE FEATURES: 

The UniFLEX VM Operating System is a demand-paged, virtual 
memory operating system written In 68020 Assembler code for com- 
pactness and efficiency. Any UniFLEX system will run faster than a 
comparable system written in a higher level language. This Is impor- 
tant In such areas as context switching, disk I/O, and system call 
handling. Other features include: 

compact, efficient Kernel and modules allows handling more users 
more effectively than UNIX systems, using much less disk space. 

UNIX system V compatibility at the C source code level. 

C Compiler optimized In 68020 code (optional). 

Record locking for shared fiies. 

Users can share programs In memory. 

Modeled after UNIX systems, with similar commands. 

System accounting facilities. 

Sequential and random file access. 

Maximum record size limited only by the disk size. 

Multiple Level Directories. 

Up to 4 Megabytes of Virtual Memory per user. 

Optional Languages available are: C, BASIC. COBOL, FORTRAN. 
LISP. PROLOG, SCULPTOR, and ASSEMBLER. In development are 
ADA, PASCAL, and FORTH. 

Included with the UniFLEX Operating System are a Utilities package, 
editor, relocating assembler, linking loader, and printer spooler. Op- 
tions inlcude a fast floating point package, library generator, and a 
sort -merge package. 

The GMX version of the MOTOROLA 020 BUG Is included with the 
system. 
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Phone (615) 842-4600 or Telex 5106006630 

Copyrighted 1905 by Computer Publishing Inc. 
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Publishing Inc. Second Class Postage Paid ISSN 0194-5025 at 
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either 5 or 8 Inch disk in STYLOGRAPH orTSC Editor format 
with 3.5 Inch column width. All disks will be returned. Articles 
submitted on paper should be 4.5 Inches In width (Including 
Source Listings) for proper reductions. Please Use A Dark Rib- 
bon!! No Blue Ink!!! Single space on 8x1 1 bond or better grade 
paper. No hand written articles accepted. Disks should be in 
FLEX2 6800 or FLEX9 6809 any version or OS-9 any version. 

The following TSC Text Processor commands ONLY should 
be used: .ap space, ,pp paragraph, .tl fill and .nf no fill. Also 
please do not format within the text with multiple spaces. We 
will enter the rest at time of editing. 

All STYLOGRAPH commands are acceptable except ,pg page 
command. We print edited text files in continous text form. 
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User Notes 



By: Peter Dibble 
As Published in 68 Micro Journal 



The publishers of 68 Micro Journal are proud Co announce the 
publication of Peter Dibbles OS9 DSRR MOTES . 

Inforaatloa for the BBCDiNEE to the PRO, 
Regular or CoCo 0S9 

Using 0S9 
HELP, HINTS, PROBLEMS, REVIEWS, SUGGESTIONS, COMPLAINTS, 0S9 STANDARDS, 
Generating a New Bootstrap, Building a new System Disk, 0S9 Users Group, etc. 

Prograa interfacing to 0S9 
DEVICE DESCRIPTORS, DIRECTORIES, "PORKS", PROTECTION, "SUSPEND STATE", "PIPES", 

"INPUT/OUTPUT SYSTEM", etc 

Programming Languages 
Assembly Language Programs and Interfacing; Baalc09, C, Pascal, and Cobol 
reviews, programs, and uses; etc. 

Disks Include 
No typing all the Source Listings In. Source Code and, where applicable, 
assembled or compiled Operating Programs. The Source and the Discussions in 
the Columns can be used "as is", or as a "Starting Point" for developing year 
OWN more powerful Programs. Programs sometimes use multiple Languages such 
as a short Assembly Language Routine for reading a Directory, which is then 
"piped" to a Basic09 Routine for output formatting, etc. 




BOOK 



Typeset — w/ Source Listings 
(3-Hole Punched; 8x11) 

Deluxe Binder ---------- $5.50 



$9.95 



18" SS, SO Disk $14.95 

All Source Listings on Disk 2 s- ss, dd Disks $24.95 

Shipping and Handling; $3.50 per Book, $2.50 per Disk Set 

* All Currency in U.S. Dollars 

Foreign Orders Add $4.50 S/H (Surface) or $7.00 S/H (Air Mail) 

If paying by check - Please allow 4-6 weeks delivery 

Continually Updated In 68 Micro Journal Monthly 

Computer Publishing Inc. 

5900 Cassandra Smith Rd. 

Hixson. TN. 37343 




tit - OS9 !■ ■ cradvuTt. of rUcrovar* Systea* CaTp, and Motorola Inc. 
TH - t/S" Kicro Journal li ■ trademark of Coapucer Publishing Inc. 
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HUSTANC-020 System Price* 
Effective November 198) 

Mustsng-020 SBC, wired & tested with 4 OB25 
Serial porta pre-wlred, ready to Install with 
your cabinet, P/S, CKT and drlvea $2750.00 

H020 Cabinet and P/S, for Mus tang-020, less 
cables $269.93 

H020 Cables, dual floppy or Winchester, specify 
which - floppy or Winchester $39.95 

BOZO PC Floppy cabinet and P/S, holds and powera 
2 thln-Une floppies $79.95 

H020P Floppy, BO track, DD/DS $269.95 

OS-9, SPECIAL feataog-020 version $350.00 

MC68BI Floating point co-processor Call 

(not yet In delivery - est. Dec. '85) 

** Call for current Winchester prices 

Note; for orders of complete systems (Muatang- 
020. cabinet & P/S, disk drives and 0S-9, 
deduct 51 from total package. (limited time 
offer) 

•* Special Winchester Motlce ** 

The Huatang-020 device deacrlptora will allow 
you to use practically ftJfl Winchester drive 
supported by XEBEC or OHTI controllers. 



Include; $3.50 SBC, cables only S/H. Csbinets 
include $7.50 S/H. 

All checks must be in USA funda. Overseaa 
specify shipping instructions and sufficient 
funds . 



He Proudly Announce the MUSTAHG-020 Super SBC 

"The one with Che REAL KICK!" 

Only from DATA-COHP 



This Is Che NCC, world beater GMX SBC, in a super 
configuration. Data-Comp has mated it Co a 
power plus power supply/stylish cabinet and your 
choice of floppy and/or hard disk drives. 
Available in several different configurations. (1) 
single board. (2) single board and regulators for 
your cabinet or mainframe and power supply. (3) 
single board - power supply and cabinet - your 
disk drives. (4) single board - power 
supply/cabinet - our drives configured to your 
specs, and ready to run. 0S9 68K will be 
available as well as several other popular 
operating systems. Also all the popular 0S9 68K 
software and Motorola 020-BUG will be available 
at a veiy reasonable price. 



Note: We will include the Motorola 020-BUG at no 
additional charge. This item alone sells for 
$500.00. This allows direct coding of 68020 
advanced codes. 020-BUG is required for our 
version of 0S9. Please bear in mind, this system 
is the one others are compared to. 

This system is the state-of-the-art star-ship. 
It runs rings around any other 68XXX SBC, and 
most mainframes. The speed and expanded RAM 
make this the "best buy" by a far stretch! A 
true multi-user, multi-tasking computer. So far 
advanced that even the experts don't call it a 
micro. Compared to the others, it isn't even a 
"horse race." And the price is certainly right. 
You can bet on this one! 

So, will it be Turtle or Thoroughbred? 



Mustarig-020 is trademark of Data-Comp-CPI 




DATA-COMP 

5900 Cassandra Smith Rd 
Hixson. TN 37343 
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SHIPPING 

USA ADD 21 

FOHEI6N AOO SI 

HIM. $2.50 



(615)842-4600 

Fc* Orrtsviny 

telex 5106006630 
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Mustang 020 Features 

II. J MMe MC49020 foil 32-nlt vide pith Proceaeor 

- 12-btt wide ooa-awltlplexed cUt* 4 eddrete feu tea 

- On-chip loetrvctloa each* 

- Object-code ceopetlbla with earlier KoSOOO fandJy proctiHn 
(6KM0/»9O0c76*0]0) 

- Enhanced instruction eat - Oopr citior lotarface 
Optional MMI Pleatlrg point Coprocfiior (12.) «U) 

- Urict aitaoeloe of 6M20 Inetructlon act 

* Full support of mi P7M, draft 10.0 

- Tranecendentale and other oath functions 

2 "jagebycea of ft** <J12I x 12-Mc organization) 

Up to 2*6t bytee of Irion (4* it x 12-hiia) 

* Use* four 2764. 27128. 27256, or 27>i2 EPROHe 

4 Anyocbr noua aorlal I/O porta <2 x HC68461 DUART) 

- software progm—bln baud racee to 19. 2R 

- Standard 15*2)2 lotarfnci 

- Optional network lnterfece on one port 
luffered ft-blt Perallat I/O Port (1/2 KC66230) 

- Cant ronlca-lfpe parallel printer pioout 

- Key alao be uaed n parallel Input port 
Gapaaeloe CMlwctor for Additional I/O Devleea 

* 16-bit data path 

- 2 56 byte addreea apace 

- 2 Interrupt loputa 

- dock and Control Signals 
T1»e-of-uny Clock /Calender a/battery backup 

Coat roller (or up to TVo 5 1/4" Floppy OLak Drives 

- Simla or double elded 

- Single or double denelty 

- 48 er 16 t facie per loch (40/60 Track; 
novate Directly to a Standard 5 1/4* Dtek Drive 
SASI 1* carfare for IntaLUgsnt Hard Uek Cootrollere 
Prograeotebla Periodic Interrupt Generator 

- For ttaw-sUctog mn4 resl-tln* eppUcatloea 

- Interrupt rate* (root olcrooecoode to aoconde 

- Highly Accurate tin* bass (5 PPM) 
5~blt ■■nit switch, readable by the processor 
Hardware *lngle-etep capability 

* And o*ny other advanced features not found on other aytte 
priced fetich higher. 



Straight From The Horse's Mouth 

The Clear Winner 




(615)842-4600 

Telex 5106006630 
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Load RaelcOV! 
Te»i ad bene hour is; 



RAH Dlefc floppy Wlcicheeter 
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FLEX ™ USER NOTES 

THE 6800-6809 BOOK 

By: Ronald W. Anderson 

As published in 68 MICRO JOURNAL'" 




The publishers of 68 MICRO JOURNAL are proud to announce the publication of Ron Anderson's FLEX USER NOTES, in 
book form. This popular monthly column has been a regular feature in 68 MICRO JOURNAL SINCE 1 979. It has earned the 
respect of thousands of 68 MICRO JOURNAL readers over the years. In fact, Ron's column has been described as the 
Bible' for 68XX users, by some of the world's leading microprocessor professionals. Now all his columns are being 
published, in whole, as the most needed and popular 68XX book available. Over the years Ron's column has been one of 
the most popular in 68 MICRO JOURNAL. And of course 68 MICRO JOURNAL is the most popular 68XX magazine 
published. 

As a SPECIAL BON US all the source listing in the book will be available on disk for the low price of: FLEX " format only — 5" 
$1 2.95 — 8" $1 6.95 plus $2.50 shipping and handling, if ordered with the book. If ordered separately the price of the disks 
will be: 5" $1795— 8" $19 95 plus $2.50 shipping and handling. 

Listed below are a few of the TEXT files included in the book and on diskette. 

All TEXT files in the book are on the disks. 



LOGO.C1 

MEMOVE.C1 

DUMP.C1 

SUBTEST.C1 

TERMEMC2 

M.C2 

PRINT.C3 

MODEM.C2 

SCIPKG.C1 

U.C4 

PRINT.C4 

SET.C5 

SETBAS1.C5 



File load program to offset memory — ASM PIC 
Memoiy move program — ASM PIC 
Printer dump program — uses LOGO — ASM PIC 
Simulation of 6800 code to 6809, show differences — ASM 
Modem input to disk (or other port input to disk) — ASM 
Output a file to modem (or another port) — ASM 
Parallel (enhanced) printer driver — ASM 
TTL output to CRT and modem (or other port) — ASM 
Scientific math routines — PASCAL 
Mini-monitor, disk resident, many useful functions — ASM 
Parallel printer driver, without PFLAG — ASM 
Set printer modes — ASM 
Set printer modes — A-BASIC 
(And many more) 



"Over 30 TEXT files included in ASM (assembler) — PASCAL — PIC (position independent code) TSC BASIC-C, etc. 

NOTE: C1..C2, etc. Chapter 1, Chapter 2, etc. 

This will be a limited run and we cannot guarantee that supplies will last long. Order npw for early delivery. 

Foreign Orders Add $4.50 S/H 
Softcover — Large Format 








Telex 5106006630 



Book only: $7.95 + $2.50 S/H 

With disk: 5" $20.90 + $2.50 S/H 

With disk: 8" $22.90 4 $2.50 S/H 

See your local S50 dealer/bookstore or order direct from 

Computer Publishing Inc. 
5900 Cassandra Smith Rd. 
Hixson, TN 37343 




(615) 842-4601 

"FLEX is a trademark of Technical Systems Consultants 
December '85 
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JV40 Sturbridge Court 
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Languages 

Every couple of years In Che process of doing this 
coluan I hsve done s coluan primarily sbouc the vsrlous 
computer lsngusges. It bss been s couple of yesrs since 
the lsst one so I thought 1 would sgsln get into the 
subject (which generally gets ae Into trouble with soae 
resders). The question slwsys cones up as to why there 
are ao many lsngusges. Each one has Its specific sres of 
sppllcstlon where It really "ahlnea". Soae languages fit 
a particular prograaner'a personality better than othera. 
Soae of ua are organized to the nth degree and can uae a 
language that requlree that we pay very careful attention 
to detail. Othera, like ae, are disorganized buablere 
that charge right In and atart prograaalng. We require 
a language tbat forces us to be s bit acre orgsnlzed. 
With thle In alnd, let's proceed to the discussion. 

BASIC 

In ay discussion of lsngusges, BASIC slwsys coaes 
first. It was dealgned to be alaple and easy to lesrn. 
BASIC does s nuaber ot things automatically thst sre left 
to the choice of the progrsaaer In other lsngusges. For 
exsaple, BASIC doesn't require sny sort of "forast" 
ststeasnt for the output of nuabers. PRINT A will get 
you the value of A on your acreen or paper In aoae 
"reasonable" foraat. If A It within a reasonable range, 
like 10000 or 0.1)00123, lc will be printed In Juat that 
way. U It U too easll or too big, It will be printed ss 
I.23E-S or 7.69503E24 . The switch froa atandard 
notation to scientific is sutoastlc snd requires no 
Instruction froa the progrsaaer. Of course ton BASIC 
Interpreters hsve soae sort of foraat steteaent eo that 
you can print "real" nuabera to three or five declasl 
plsces, snd they hsve PRINT USING ststeaents adopted 
etralght froa COBOL'e PIC atateaent (Picture). These 
lster sddltlons to BASIC sre obvious stteapts to overcoae 
the ilaltstlons. Thst Is not reslly very iaportsnt to 
this discussion. The point le thst BASIC frees the 
beginner froa even thinking sbout such detslls ss nuaber 
foraste. He doesn't even hsve to worry sbout whether hie 
nuabera are floating point or Integer typea. 

Becauae of the freedoa froa detail, BASIC la a very 
good language to learn aa a flrat coaputer language. 
BASIC la uaually lapleaented aa an Interpreter. That 
aeana thst It looks directly st your program text snd 
lntsrprets It ss It Is running. You chsnge s line of 
progrsa snd run It sgsln Instantly. Thst askee It very 
easy to "debug" s BASIC progrsa. Moet sli of the BASIC 
Interpreters ellow editing of the progrsa without ever 
leaving the BASIC Interpreter. Ksny offer some fairly 
aophls tlcsted editing festures, though soae require you 
to retype s whole line to reaove e coaas or sdd sn extra 
right paren at the end of the line. 

BASIC is not without Its Ualtetlone, however. Ail of 
Its vsrlsbles sre "CLOBAL". Thst Is, every vsrlsble Is 
sccssslble by every part of the progrsa. The 
dlesdvsntsge of thst asy not be apparent at this point. 
Just let ae ssy thst LOCAL vsrlsbles sre sn sld In 
keeping the vsrlous psrte of s lsrge progrsa froa 
Interfering with one another .. what the prograaalng 
theorlata call "aide effect*". BASIC requires a LINE 



NUHBER on svery line of code, it generally doean't allow 
you to uae aeanlngful variable naaea or prograa labels, 
COSUB 1340 doeen't give the reader of the progrsa auch 
clue se to wbst the subroutine does. In another 
lsngusge thst Is procedure oriented, the aaae Instruction 
alght be CALCULATE AVERACE; which Is certainly aore 
Informative of the function of the eubroutlne. Then 
there la the limitation of variable naaea being only two 
charactera at moat. Soae BASICe allow longer variable 
naaea but only the flret two letters are significant to 
the Interpreter. Conalder the following calculation of 
PAy ualng HouRa and RaTe. 

10 If HR <-40 THEN PA-HR*RT ELSE PA-40«RT*< HR- 
40)»1.S»RT 

Of course In BASIC thst would be on one line. Now 
look st the ssae calculation in Psscsl: 

IF HOURS <- 40 THEN PAY - HOURS • RATE 

ELSE PAY - 40 * RATE HHOURS-40)»l.i«RATR 

Becsuse of theee Ilaltstlons, BASIC users don't 
generste programs thst sre the aost readable to eoaeone 
else. An unfortunste leftover froa the dsys when 
microcomputers hsd very Halted memory. Is the tendency of 
some BASIC programmers to run atateaenta all together on 
one line without any apaces, aaklng them almost Impossible 
for snyone but the original progrsaaer to reed. 

In sn effort to overcoae the vsrlsble nsae Limitation 
snd the Isbel limitation, many "BASIC pre-compllera" have 
been written. Theee take a prograa In which the 
programmer hae ueed reaaonably long variable namea and 
labele, and converta hla text to a form acceptable to the 
BASIC Interpreter. That la, it taxes HOURS, PAY, snd 
RATE snd converts them to A, B, snd C. There sre two 
difficulties with such s pre-coapller . First It sdds 
snother step to the use of BASIC. It no longer Is s 
staple Interpreter. Chsnge the progrsa snd you hsve to 
run It through the pre-coapller sgsln. Secondly, the 
pre-coapller output produces vsrlsble names that era even 
leaa aeanlngful then you could aaalgn ualng two letter 
naaea available in BASIC. 

If 1 eound like I aa being critical of BASIC, I aa, but 
I uae It very frequently. It hae GREAT utility In doing 
little abort one tlae use programs, and In exploring waya 
of calculating aoae particular quantity (Algorithm 
exploration). I uae It frequently for what I call 
exploratory prograaalng. BASIC hae very complete 
functlona for handling "atrlnga". A "string" is s string 
or line of chsrscters to be handled like text, for output 
to a printer or terminal. Everyone needs s good BASIC 
Interpreter! 

I understsnd thst the suthors of BASIC ( Kerne ny snd 
Kurtz) sre now actively working on s new etsndsrd thst 
hss vsrlsble nsaes labels, snd many of tbe loop control 
atructurea of Paacal (WHILE DO and REPEAT UNTIL). I have 
not aeen any ada for the new BASIC Juat yet however. 
These sddltlone will be welcome, snd will asks BASIC 
progrsas vsstly aore readable. 

Becauae BASIC la an Interpreted language. It tenda to 
be slower thsn soae of the higher level lsngusges, snd 
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can ba literally 100 tlaea slower than the aaae program 
written In eaeeabler. For a coaplex prograa with a lot 
of calculations, there are better waya to go. 

Paacal 

Pascal's atrong polnta are aany. Jt waa written 
prlaarlly to be a language with which to learn structured 
progranalng techniques. Paacal probably acre than any 
other language, forcea the prograaaer to think about 
what he is doing. It la very atrong on the "typing" of 
varlablea. You auat "declare" each variable before it la 
uaed, end you auat decide whether the variable la to be 
of type INTEGER, REAL, CHAR, or BOOLEAN. In addition to 
those typea you can define your own variable types, 
enumerating the valuaa that they can aaauae. You can 
define a TYPE DAYSOFJrfEEK with the valuea (SUN, HON, TUE, 
WED, TUU, FR1, SAT) and can then create variables of that 
type. 



PAY:KEAL; 

DAY: DAYS OF WEEK; 



The real laproveaent over BASIC In the other newer 
languagea la the ability to bundle a nuaber of prograa 
atateaenta together Into one "coapound" atateaent. It la 
alwaya awkward In BASIC to do aultlple things with sn IP 
THEN ELSE. If you need acre than one prograa atateaent 
for either the THEN or tha ELSE, you have to reaort to 
IP... THEN GOTO.. 
STATEMENTS.. COTO. In Paacal It la eaay: 



IF A>B THEN 
BEGIN 

B:-BU; 

END 

ELSE 

BECIN 

A:- A-l; 

K:-K D1V 2; 
END; 

BECIN and END are "brackets" thst surround s nuaber 
of progrsa steteaents thst sre to be considered one 
ststeaent. In addition, s stateaent that won't fit on 
one Una aay be epllt onto two or aeveral lines, the 
aeaicolon elgnala the end of a atateaent. Actually, the 
END algnala the end of the atateaent before It, ao that 
atateaent doeao't require a aeaicolon, but the aeaicolon 
doaa no hara there, and If It la not there, I alwaya add 
a atateaent Juat before the END and forget to put the 
aeaicolon on the prevloue atateaent. 

Paacal la a very picky language. Becauae It forcea you 
to declare your Intentions explicitly, It catchea aany 
arrora that would get by a leas picky coapller. If you 
aailgn the value of a real nuaber to an Integer, you have 
to tell Paacal that you know what you are doing, by 
ualng the function ROUND or the function TRUNC. Round 
rounda the real value to the neareat Integer, and TRUNC 
chopa off the fractional part. If K- 2.71828, K:-R0UND(E) 
would reault In X-3. K:-TRUNC(E) would reault In K-2. 
Note that the eaalgnaent etateasnt In Paacal requires you 
to use :- (resd ss becoaes equal to). Thla dlatlngulahee 
aaalgnaenta froa equality teata aa In IF A-B. 

I can aay froa long experience that once a prograa 
geta through a Pascal Coapller, It will probably run 
without creehlng, though It aay not do precisely whet the 
prograaaer Intended. 

All of the Paecal lapleaentatlona for the 6809 ere 
Coapllera aa oppoaed to Interpretere . There are two 
different kinds of coapllera however. One type generates 
what la called Paeudo Code. The Pseudo code Instructions 
sre then Interpreted by s slaple Interpreter. This bss 



the sdvantage that the aaae coapller can be uaed to 
generate Paeudo code on aeveral different proceaaora, and 
only the Paeudo code (P-Code) Interpreter haa to be 
rewritten to accomodate a different proceaaor. Another 
advantage of P-Code la that It la generally very 
efficient. It generatee leea code then aoae of the other 
approachea to a coapller. The other kind of coapller la 
called a "Native Code" coapller. These genarslly generate 
Aaaaabler Source code which auat be aaaeabled (generally 
with a relocatable aaaeabler) and then processed by s 
"linker - loader". The nstlve code coapllera generally 
generate aore code for the aaae prograa thsn the P-code 
coapllera, The nstlve code, however generally rune 
fester. Nstlve code coapilsrs tend to be aultl-pess so 
thst they tske considerably longer to coaplle s progrsa 
of s given size thsn the P-Cods coapilsrs. 

Bscsuss Psscsl wss dsalgned aa a teaching tool, and 
parhepa bacauae It waa dealgned before microcomputers 
becaae available, It Kit no specific file handling 
procedurea. Aa a reault, thoae who lapleaented Paecal 
coapllera for Mlcrocoaputere each went In e different 
direction In lapleaentlng dlak fllee. Thla aevaraly Jlalta 
the "portability" of a Paacal prograa. Generally sll file 
handling ststeaente hsve to be rewritten before s progrsa 
thst runs on one coapller will coaplle on soother. 

Psscel sllows the ueer to define e dste RECORD, e 
collection of vsrlous dste typee grouped together ee sn 
entity. This festure le very valuable In data proceealng, 
for aettlng up data file etructuree. 

Paacal haa eoae vary nice quelltlea. I've tried 
aeveral tinea to atart to write an article on programming 
In general trying to uae no particular langusge. 1 slwsys 
find thst ay "pseudo code" Is so much like Psscsl thst I 
alght ss wsll use Psscsl for the exeaplee. Psecel 
progreas need few coaaenta. They are very auch "eelf 
documenting" when written by e prograaaer who chooaee 
aeanlngful verlshle naaee end procedure nsaee . I 
etrongly recoaaend thet anyone who wants to progrsa In 
"C" ought to lesrn Psscsl first. More on thst below. 

Perdon ae if I Just uae C without the quotee here. C 
la a lenguage thet le elallar to Paacal In that It haa all 
the varloua loop control constructs, but with slightly 
different eyntex. C wse prlaarlly deelgned to be ueed ss 
s lsngusge lo which to write eyatea aoftwara (operetlng 
eyetaaa and utllitlea). Unix is written In C. 

Generally C la a little aore looee In lte eyntax than 
Peacal. It aaeuaee that you know what you ere doing. 
Someone haa deecrlbed C ee e "Pascal that Is not afraid 
to get lte handa dirty". C la leee wordy then Paacal, 
relying on eyabols to e greater extent. For exaaple, 
BEGIN and END sre reduced to the familiar "curly brecea" 
I and }. Paacel ueea IF THEN. C uaea IF (condition) 
without the word THEN. That la, the condition le 
encloaed In parentheeee. C lete you print an Integer to 
the teralnal or add e nuaber to a character which la 
aoaethlng even BASIC won't let you do. 



10 PRINT CHR$(7) 
WRLTE(CHR(7)); 

putchar(7); 



BASIC 
Paacal 
C 



IP CH IN [a..zl THEN CH -CHR(ORD(CH)-32); 
If (ch>-^a' 44 chO'O ch-ch-32; C 



Paacal 



The eecond exaaplee convert lower caae a-r to upper 
caae A-Z, Paacal aakaa you convert the character CU to 
an Integer uelng the ORD function, eubtract the 32 end 
convert the reault back to e CHAR uelng the CHR function, 
C lete you eubtrect 32 froa the ch value and doaan't 
coaplaln. The function IN In Paacel la a nice shorthand 
way of eaylng IF CU >- "s" AND CU <- "i". The U In C is 
the logical AND function. 
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You can aae by chess short exemplee thsc C Is more of 
s shorthand language chat uses lore eymbola and leas 
words. 1c lees the prognose r who Is In chs know "chest" 
■ore chsn Fsscsl does. lc lees Che programmer who la 
not In Che know gee Into trouble much aore eaally Chan 
Pascal does. 



Incidentally Che second example Is hard Co show In 
BASIC becsuse s chsrsccer ss such doesn't exlac In BASIC. 
Characcsrs ooiy exlsc aa pare of a scrlng. You'd have co 
do approximately che following: 

10 a$- *r 

20 C-ASCII(AS) 

30 If C >- 97 AND C C-121 THEN PRINT CHR$(C-32) 

Perhsps now you csn see why 1 chink (along wlch many 
ochere) chsc you should lesrn Psscsl bsfore learning C. 
C la obviously s very useful lsngusge. Ic hss aore 
fescures snd capabilities Chan Paacal, particularly In the 
area of "pointers", sn sres beyond the scops of this 
column. Polntere provide sccsss to sny memory eddreaa 
Including hardware Input output porta. C allowe the uaer 
to define a data record, a collection of varloue typee of 
data, called a Structure In C aa oppoaed to tha word 
RECORD In Paacal. 

C haa one overwhelming virtue. Nearly every 
Implementation of It haa followed the etandard faithfully. 
C ltaalf contalna no machine dependent featurea. Thaee 
are alwaye Implemented In a "runtime library" ueually 

written In C. Moat lmplementatlona follow the atandard 
very cloaely eo that euch things as file handling are 
precisely the sama from version to verelon. That makes 
programs written In C extremely portable or movable from 
system to systsm, svsn wlch different processors. 

POITK 

Forth Is distinguished ss s lsngusgs thst Is slther 
loved or hsted by e given progrsmmer. It's proponents 
Include s lot of very smart people who think It extremely 
ueeful snd fsst to use for progrsm development. Porth 
comee complete with lte own operetlng eystem, eo thet 
Forth on one computer looke exsctly like Forth on snother 
computer. Forth users csn with little effort get right 
down to the hsrdwsre level of things. They claim thst 
their progrems sre smsller snd fsstsr thsn the ssme 
progrsm Implemented In other lengusges. I hsd ons Forth 
user tell me thst his Forth progrsms were smsller In 
totsl cods thsn the equivalent progrsm written In 
Aeeemblerl I dlepute both the clelm of speed end the 
clslm of smsllness. I hsve not yet ssen the etsndsrd 
prims number benchmark run In Forth nesrly ss fsst ss C 
snd Fsscsl lmplemantstlons of the eame program. 

There le one undleputed etatement that can be made 
about Forth. A program In Forth ia generally more 
conclee (the eource text that Is) by st lesst s fsctor of 
2 thsn sny of ths lsngusgsa discussed sbove. You csn 
without doubt do more with less source code In Forth 
thsn most lsngusgee (probsbly API excluded). Try Porth. 
[f It flte your neede end your personality, by all means 
go st It. 

Special Languages 

There ere e couple of languagee eround thet were 
dealgned particularly to fit the feetures of ths 6809 
procsssor. The two thet Immediately come to mind ere 
PL/ 9 end Whlaaical. PL/9 followa the model of Pl./H, 
Intel's lsngusge written for the 8080. It elso follows s 
lsngusge by Tom Croeley celled SPL/H written for the 6800 
eeverel yeere ego. Theee sre sll low level lsngusgee, 
lower thsn Psscsl or C, st leeet, but not nearly ae low 
level ee Aeeembler. PL/9 hae moet of the featuree of 
Peecale with the exception of Che very rigid daca cyplng. 
Arithmetic mey be done in "mixed mode". That le a 
calculation that nines REAL and INTEGER data typee may be 



performed end the reeult eeelgned to e REAL variable. 
The rulee for whet heppena are fairly atrelghtforward, 
and functions ere available for forcing the calculation to 
proceed In e manner other than the "defeult". PL/9 la a 
compiled lenguage, chough che 6809 machine code le 
gene raced In e single paee. PL/ 9 ie mleelng a few of che 
niceties of eome of the other languages euch ee linking 
in pre compiled modules, though the single pess compiler 
generally le eeveral tlmee feater compiling the eame 
program (even though It haa to compile ell the modules 
every time) then the C or Peecal compilers. 

Being eomewhat more limited in ecope, PL/9 requires s 
little more of the progrsmmer, but not much. PL/9 
gsnerstea very efficient output code, ueually ebout half 
ae much ee the equivalent C program. 

Someone eeked me to deecrlbe the difference between 
PI./9 end Whlaaical recently. I eald that PL/9 wae aore 
loosely constructed like C, while Whlmelcal wss rigid llks 
Psscst. 

Uhlmeical is Indeed e very fine lsngusge. It is VERY 
auch llks Psscsl. Typing of vsrlsblss is rigid snd typs 
converelon functions must bs ussd to perfora mixed mode 
srlthmetlc calculations. It generstss very efficient code 
(even more efficient thsn PL/9) snd compiles quickly also. 
It sllows the inclusion of pre-coaplled modulee in s 
progrsm, snd the uee of euch modulee epeede up the 
compilation process, though for ths equivalent program 
and no pre-coaplled aodulea, it takea about twice as long 
ss PL/9 to compile. Both lsngusgee hsve excellent 
eupport from their suthors snd suppliers. Both hsve been 
eround long enough co be Juec ebouc bug free. Boch ere 
designed Co cske edvsncsgs of chs specific hsrdwsrs of 
Che 6809. 

Aeeembler 

Originally che only choice for Hlcroproceeeor baaed 
ayacea uaera, Aeeembler is still ths cholcs of msny 
programme re. Some see it es "ths only wsy to go". Since 
moet of you hsvs reed ay continuing dsbste here with Dan 
Farneworth of Coapller ve Aeeeabler, I won't elaborate 
further. I recently finished writing e ecreen editor in 
PL/9. It wee a little elow in aoae of lte functions snd I 
wss sble to eubetltute "ASHFR0C" procedures for sbout 2X 
of the totsl code end epeed it up by s fsctor of three or 
four. 1 slaply coded the aoet repeated loope (placea 
where the program apent moet of lte time) in Aeeembler. 
In aeny caeca apeed was of little coneequence. If the 
prograa can handle ay typing on the terminal eo thet it 
doean't alee characters, that la adequetely feet. In 
other ceeee though, euch es sssrchlng through ths sntlre 
file for s word, or going froa the bottom of ths flis to 
the top, I found ayeelf waiting for the computer. 
Speeding up the major tlae coneunlng loops in those esses 
aade the prograa run auch faeter. In order to teke 
advantage of euch optlalzatlon, of couree, you have to 
know how to prograa in Aeeeabler, 1 think you are abort 
changing youraelf if you don't get into it a little, at 
leeat enough to be eble to underatand someone else's 
prograa. 

Aeeeabler is very efficient when the progrsmmer uses 
It properly. An aassabler prograa la very detailed, very 
epeclflc to the particular proceeeor, end lte eource 
Hating la auch longer then thet for the equivalent 
prograa in a higher level language (froa five to ten tlmee 
ee long, in feet). For aoae appllcatlona, Aeeeabler ia 
obviously the way to go. 

Concluelon 

I've obviously uaed up more then my alloted epace thla 
time. Long time reedere may want to dig up whet I eald 
laet time and aee if my opinions have changed a little in 
e few yeere. Next time we will get back to the reguler 
monthly FLEX feacure. 
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friends, I have made a decision. I'm going to get a 
68K system. If 1 can't afford any better It nay be a 
68008 ayaten, but It will have At leant a hall a 
megabyte of nenory, a hard disk drive, and OS-y/bSK, If 
1 have to live on peanut butter sandwiches to save the 
money I'll do It. I'll have to return ay borrowed 68008 
ayaten aoon and going "cold turkey" would probably kill 
ae. 

1 got a 68008 ayaten on loan a few weeks ago. It 
cane with 512K bytes of nenory and two 96tpl floppies. 
t didn't like It very nuch at flrat. 1 bought a hard 
dlak for ny Clnlx years ago. Faster disk acceaa sounded 
good, but what I really wanted waa one ayaten disk. My 
1.2M Quaes overflowing and I Juat couldn't get uaed to 
awapplng floppies like an MSD0S user, 0S-9/68K with Its 
standard utilities Just barely flta on a OSDD 96tpl 
dlak. There's no roon for extras — certainly not the C 
conpller. 1 soon realized how spoiled 1 have becone. 

fortunately Priority One haa been selling Shugart 
hard disk drives for $99. 1 sent for one with the 
appropriate cablea (one 50-pln socket to socket, one 
20-pin socket to card edge, and one 34-pln aocket to 
card edge). I've been talking to Bobby Philips at Clnlx 
about their 68020 board — I've been dreanlng. He's had 
nice things to say about the 0MTI hard dlak controller 
boards so I trscked an 0MTI 5100 down at Arrow 
Electronics for about $270, 1 plugged everything 
together and adjuated the hard dlak device descriptor 
for the 0MT1 controller and the Shugart drive. 

It all worked. It's always a pleasant aurprlse when 
that happens. I formatted the new drive and copied 
everything onto It, Then I started really using the 
systen. Hlcroware haa obviously put a lot of work Into 
the 68000. Ksse-of-use nust have been their watchword. 
You night think (correctly of course) that they had 
been using 0S-9 for years and knew Juat what it needed 
If only they had enough nenory to do It. The 68000 gave 
then enough nenory and they did It. Let ne give you a 
few exanples. 

The shell supports some wild-card Hatching. A 

and like: 



$ del *.r 

works. It deletes all files with a .r suffix. 

The copy connand has a <-r, for replace, option; when 
that option is set copy will copy over an existing file 
If It haa to. There Is a -w«(dlrectory> option that 
causes copy to copy a Hat of files Into the named 
directory. When I wanted to back all ny C tiles up onto 
a floppy the connand: 

S copy *.c *.h -w«/dO/C. BACKUP 

did the trick. 

The C compiler has -t-<dlrectory> that leta you 
specify a directory for C's work files. You put then on 
the ran disk for a remarkable speedup. 

DSave leta you copy only Illea that are newer than 
corresponding files In the destination directory. In 
the asseabler the C preprocessor convention of 
surrounding an Included file's nsne In brackets, 
<flle.h>, applies to the use directive. 



use <defsllst> 



goes directly to /dd/def s/def sllst . But that's not 
generally required. The new policy Is to resolve syaten 
dependent nanes with the linker. You don't Include 
syaten definitions when you assenble; when you link you 
Include /dd/llb/aya. 1 which resolves all the ayaten 
naaea. 

A REAL debugger. It can single-step. Synbola that 
were declared sa globala are available. It 
dlassasenblea as It goes showing addresses relative to 
global synbola . 1 found It quite useful for debugging 
C programs when they were linked with the -g option (for 
preserve global synbol information I guess). I bet the 
debugger alone has saved me at least teo houra of 
debugging tine already. 

It sounds a bit like i'n In love doesn't it. Well 
1'n not the ronantlc type. I always look for the dark 
cloud attached to the silver lining. One problen la 
obvious. I've got to give this back. That means that 1 
have tu find the money for my own aysten. Pricea range 
from $1000 up. plus enclosure and peripherals. I'd 
really like the Clnlx, but If they charge the $3000 that 
I've been guessing as the most It's likely to cost, 1 
don't think I'll be able to afford It. (Of course, if 
you all buy lots of ny booka ...) 

Another problen: can you lnaglne the nunber of 6809 
assembly language prograns I've written. I like 
programming of course, but 1 feel dsunted. Converting 
Just the most important onea . . . groan] 

The hardeat part of the dark cloud for me to face In 
that the software Is a little buggy. Nothing aerloua of 
course, but the utility cooaujnda got ny guard down, I 
was still dazzled by then when I dug Into the guts of 
the syaten. I waa upaet when 1 found that the Inside of 
0S-9/68K has sone flaws. 

I'll be specific. The Ev$Create option of the the 
F$Event SVC returns the event ID of the new event in 
register DO. Thst'a consistent with the other options 
of the P$Event SVC, but the manual says the 10 will be 
returned In 01. The C function chown opens the file 
who's owner it's changing and leaves It open. This is 
an easy problen to mlaa If you don't try to delete a 
file after you do a chown but before the chown'er 
terminates. 

I've passed over problems like that on ny Clnlx with 
a convent or a note In the margin of ny manual. #n the 
68K version they are more upaettlng because the finish 
on the systen Is generally so anooth. 

1 auapect that If 1 found a few bugs In a week of 
hard work I'll uncover dozens more over the next few 
months. Judging from ny experience so far I'd be 
surprised if there were any Important buga at the 
application level. The utility programs run amoothly, 
and the standard SVCa and C functions sll seen fine. 

You night want to note the error In the Ev$Create 
SVC in your nanus 1. I've Included a version of chown 
that works correctly with this column. If you Include 
It on the command line when you compile C programs that 
uae chown it will replace the standard version: 
cc program. c chown. r ... 
1 got the first systen 1 could find with s 6809 In 
It. I wss one of the first 0S-9 Level Two users. I 
hsve stsyed away from the 68000 mostly because 1 
couldn't afford one, but partly becauae I've been happy 
with what 1 have. Now I'n going to move. Fellow 6809 
users, I recommend thst you move too. The grsss Is 
really greener on the 68K aide. 

There haa been a great deal of discussion sbout the 
speed of the 68008. Host people seen to have run 
benchmarks that Indicate that it la slower thsn the 
6809. My subjective opinion Is that the 68008 la at 
leaat aa faat as the 6809. Look at the 68008 as sn 
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8-bit chip. It has lots of big registers and a big 
addreea apace. Where doee thla leave the 6809? 

I've been hoping that Hlcroware would nvt all the 
nice features froa 0S-9/68K to 0S-9. They have a atated 
policy ot keeping the versions of 0S-9 compatible aa 
much aa poealble, but I'd be sstonlshed If they were 
sble to aove such of the 68K aoftware to the 6809. 
Level One eyateaja nre slresdy tight on memory. The 68K 
aoftware would puah them way over the edge. Level Two 
ayatema could take the load If Hlcroware got clever with 
addreee apacee. (Thoae of you who uae 18M mainframes 
and watched thea atruggle before they went to XA have a 
aodel for the kind of things Hlcroware could do.) 1 
don't think Hlcroware will aake that effort. 1 believe 
that they will keep Level One and Level Two compatible. 
The 68K featuree that they can aove they will, but 
there will be a lot that will remain for the 68K only. 

Here'a the elngle-board 68K eyatea configuration 1 
plan on. Note that the alngle-board Isn't specified. 
I'll fill thst in when I know whst I csn afford. 

* Slngle-bosrd 680xx with st lesst 
512K bytee 

* 0HT1 5300 SCSI controller 

, Handles a tspe drive snd two hsrd 
disks 

* A Hsrd dlek drive 

. At met 40 as sversge sccess 

time 
, At lesst 20 Hegsbytes 

(I think I'll uee the Quantum 

drive that Priority One la selling 

for $999) 

* A 5.25" DSD0 96tpl floppy drive 

* A power supply 

It looks like this systea will 
need sbout 10 saps st 5 volts snd 
5 saps st 12 volts. 



@* 



Thst's aore then I've seen in s 

slngle-bosrd coaputer box. 

The AT replsceaent power supplies 

In Byte look good 
* An enclosure 

If 1 can't find a small encloaure 

with enough spsce for e big power 

supply I'll use one of the AT-sllke 

cablneta. 
1 don't know of a device driver for a cartridge tape 
drive on 0S-9/68K, so psylng the extra money for the 
OMT1-5300 seeaa like a bit of a waate. Maybe I'll have 
time to write a driver for It. If you've ever apent the 
houra It takes to back a hard diak up to f loppy(a) II) , 
you'll understand why 1 gaabled $70 on the txpe aupport. 
1'a back in school now. This column will probsbly 
stsy pretty short until 1 get s bresk. 

I (lacluda <>tdlo.h> 
J llacludt <■»«••. »> 

3 iificlud* <aiaiaL.h> 

4 flatlvda <dlract.lv> 
i chovnlFUa. (War) 
b char «FlUi 

* lpl OVnar; 

I 

till _• »_B>f «l C > J 

raflatar tot path; 
alrucl 1 1 1 d«« bufrsr; 



a 

9 

10 

li 
II 
I) 

i« 

15 
l» 
17 
IS 

iS 

II 
11 

2) 
1» 

1) 
1<> 



IlllpaOi - asaaOiw. s^i«uu>«S_iwsiTt)) -- tor) 

r«turti EOF; 
U(_aa_|fd(pa(>i, aauflar. aUaof bulfar) •• ISr>t 

claaelpal h) ; 

riture tor; 
I 

• IraialtoMar.f* oin>, lichar OtOvner) « 1. J): 
TlI_aa_p(d(Pa«B. Itxilf.r) — tOf)l 

cleaalpich); 

ratura tor i 
t 

cloaatpathl. 
raltira 0; 
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2320 Saratoga Drive 

SbsrPsvlLU. PA 16150 



Hmmmaa — when 1 lsst ended this column, I proalaed the 
next month'a column would return with ueeful Information, 
after a dreary tirade about lacking anything to write 
about. The only problem Is thst coluan appeared two 
aontha ago (aaaualng 1 get this thing sent in time for 
the proper laaue - sorry, Don), 

OK, obviously I didn't hsve anything to write sbout last 
aonth. Fact is, 1 came very cloee to quitting the column 
biz, becauae 1 lacked the energy to even turn ay coaputer 
ayeteaa on after coalng home froa work. If I didn't even 
uae the cuaputera thla coluan waa oatenaibly baaed upon, 
how could I keep cranking thla thing out? 

An anawer to that question appeared when I called Don 
Willlama to explain my predicament and try to quit. He 
wouldn't let me I Inatead, he came up with s pretty good 
Ides. While I may not alwaya have aoaethlng uaeful to aay 
about 0S-9 or the Macintosh, there are (hopefully) a fair 
number of you out there who would almply like to learn 
about programming in aeaembly lsngusge on the 68000, s 
subject which 1 csn certslnly blather on about for many 
months. 



So that's where things now stsnd. Lxpect to see s 
tutorlsl covering 68000 ssseably lsngusge programing 
(known ss AL from now on) In this spsce for the tine 
being. I've tsught AL before (for the 6809), so with s 
little luck this will be more than an exerclae in filling 
apace, and will prove helpful to many of you out there. 

The change of direction haa already had a benefit for me. 
While getting ready to atart thla column, 1 was working 
with aome minor teat programs ualng the 0S-9 aaaeabler 
and debugger, when 1 discovered thst symbolic debugging 
cspsbltltlee were now Included. For coat reason. I waa 
lure that theae were planned for the future, but aa yet 
unlapleaented . When it turned out I waa wrong, 1 ended 
up apendlng the entire evening in front of the teralnal, 
playing with the debugger - the flrat real recreational 
uae of ay computera In many months I Who knows, maybe the 
burnout csn stlil fsde swsy. (For those of you who don't 
know whst symbolic debugging Is, keep resdlng - It figures 
heavily in ths wsy I plan to teach AL.) 

Begtatvlng* *\rm Tricky Hatters 

1 need to epeclly come ground rules here, before I get 
stsrted. Flret, it's not esey to know whst level of 
knowledge st which to pitch these columns. For one 
thing, 6UHJ obviously hse a very capable readerehlp, and 
many of you are already familiar with programming in come 
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AL. Too elementary a cone risks boring you. If I aaauae 
coo alien knowledge, chough, I run Che opposite risk of 
losing Che very people Che tutorial la slated sC. I have 
no real choice buc Co cake chlngs racher slowly ac first. 
1 would certainly be lncereaced in your lectera. Pleaae 
cell ae If I'm going coo slow or coo fast for your casces. 

There are a couple of ■otters concerning how I cover 
programming in AL . for one, 1 suit Ceach Che simple 
mechanics, such aa che various opcodes and addreaaing 
■ odea. Squally important, Chough, is Che use of sdvsnced 
programming techniques made poaalble by che power of Che 
68000. Programming In aaaembly for Che 68000 la 
qualitatively different from programming the various 8 bit 
processors. This la due to che sbundsnee of reglscers, 
addreaaing modes, and opcodea available. JuaC knowing 
whac each ia capable of ia not enough. You ahould really 
know something about ualng all Cogecher in an efficient 
manner. Therefore, expect chla column Co allp lnco 
natters of programming philosophy from time Co time. 

Finally, I am a firm believer In che learn by doing 
principle (if it's good enough for me, ...). You can't 
really hope to gee a good feel for AL by reading abouc 
It. Thla meana my examples muse be Chlngs you csn Cry 
ouc for yourself. Unfortunately, chla forces me Co choose 
s psrciculsr operaclng ayacem Co uae. The main 
concenders, being chose 1 have here ac home, are 0S-9 and 
che Macintosh OS. While che Mac may be more uaer 
friendly, it can alao be terribly difficult Co program. 
0S-9 is noc wlchouc faulca aa a learning cool, since any 
program you develop muaC uae the 0S-9 module format, and 
muac be poaltlon independent, forcing me Co lncroduce 
aome complicated ldeaa much aooner Chan 1 would prefer. 
Still, 0S-9 has chsc symbolic debugger, which Is much 
nicer to use Chan che HacaBug debugger. I will cherefore 
be calking about 0S-9 moat of Che time, chough I will 
atcempc Co ssy aomeching abouc ualng ocher machines and 
operaclng ayacema ao 1 don'c loae coo many people. 

Theae are che chlnga you ahould have Co follow along: 
Flrat, a working aasembler and, If ac all poaalble, an 
aaaembly language debugger. Aa I aald, I will be ualng 
the 0S-9 aaaembler package (made up of r68, 168, and 
ocher mlacellaneoua Hies), and che 0S-9 debugger, debug. 
Next, a 68000 AL reference la most useful. The standard, 
from Motorola, la H68000 16/ 32-Blc Microprocessor 
Programmer's Reference Manual, pare I M68000DM(AD4), 
which la published by Prentice-Hall. I'm not sure how Co 
gee lc. Chough I suppose you can Cry ordering lc ae any 
local bookacore (from Prentice-Hall), or perhapa straight 
from Motorola. Finally, chere la a small fan-fold 
programming reference card, Mocorola pare number 
MC6B000(AC1), which conclaely organizea moac of che 
information you need at hand when actually programming. 
look, Mm - Sixteen Finger ml 

Now to a Care, 1 have Che aemi- obligatory explanation of 
binary and hexadecimal nocacion. Flrac, conalder how we 
counc ualng che decimal, or baae 10, ayacem. Scardng 
wich 0, In che one'a column, we counc up Co 1, 2, 3, and 
ao on up Co 9. We have now uaed up all of che single 
dlgics, ao for che next number, we acarc the one'a column 
at 0, while che nexc column to che lefc, che cen's column, 
moves from (which we didn't bother showing) Co che nexc 
digit, 1. Thac la, 10 followa 9 (eaay, huh?). We conclnue 
counclng by adding 1 Co the number in che one's column 
(chsC's known si incrementing), until we get Co 19. As 
before, we go back Co In the one'a column, and 
lncremcnc Che value In che cen'a column, 20. Afcer we 
gee Co 99, we are forced Co uae yet another column, che 
hundred'a. 

Now auppoae chac lnacead of ten separate digits Co 9, 
we only have cwo, and 1. We count in che same way aa 
before, excepc when a column reaches 1, che nexc 
lncremenc will go back co 0, and we have to move Co che 
nexc column Co che lefc. Thle ia binary, or baae 2. 
Counclng in binary, we have 0, I, 10, II, 100, 101, 110, ill, 
1000, 1001, 1010, correapondlng Co tero chrough cen. 



So much for counclng in sequence, which is obviously very 
simple. A trickier problem is converting becween decimal 
snd blnsry represencaclona of che same number. No 
matter whac baae you repreaenc a number In, each column 
haa a parcicular "weight" which lc adds co che number's 
vslue. Thus, in decimsl, we hsve che one, cen, hundred 
columns. Because of Chls, s 1 in Che hundred's column 
means a larger number Chan a 1 In che cen's column. Thla 
la known ss "postclonal" nocacion. 

in binary, che columna, from che rlghc aide, have welghcs 
one, cwo, four, elghc, snd so one. Each column haa a 
value exaccly cwlce che value of che column on che 
immedlace rlghc. To converC binary co decimal, we juaC 
add up che column welghcs for oil che columna wich a 1 In 
chem. Thus, 1010 binary la elghc plua cwo, or 10 decimal. 
Similarly, 10011001 binary la (decimal) 128+16*8+1, or 153 
decimal. To converc decimal Co binai-y, we subtract che 
largeac binary column value poaalble, correapondlng Co a 1 
In chac column, and keep converting, ualng che number 
lefc over. Thus, for 100 decimal, 64 la Che largeac 
column, and 100 - 64 • 36 . The nexc column value Co uae 
is 32, leaving 36 - 32 - 4, which la Itself a column 
value. Thus, LOO decimal ia 1100100 binary. 

A note of terminology here. A bit, which you've certainly 
heard of before, stands for binary digit, ao a bic Is Just 
one column in a binary number. 

In baae 16 or hexadecimal nocacion (hex for short) we 
have alxceen dlfferenc single digits. These sre Co 9, 
ss normsl, followed by che "digits" A, 2, C. D, E, snd F, 
corresponding Co che vslues cen Co fifceen. Don'c let 
che leccers chrow you. Hex scill works like binary and 
decimal, so che number after F hex la 10 hex, 2A hex 
followa 29H, 100 hex followa FF hex, ecc. In hex, che 
column valuea are (decimal) 1, 16, 256, and ao on by 
powere of alxceen. 

In converclng hex Co decimal, we muac now multiply a 
column value by che digit In chac column, and add che 
reaulcs, eo 12 3 hex Is 1*256 ♦ 2*16 ♦ 3*1 or 291 decimal. 
Converclng decimal Co hex involves finding che largeac hex 
column value amalle r Chan che number, finding how many 
clmea che column value dividea che number, and ualng chac 
value ae che hex dlgic for chac column. The number co 
converc la reduced by che column value clmes che hex 
dlgic, snd che process repesced, until we gee Co che ons 
column. For Instance, 1000/256 is 3 wich remainder 232, 
232/16 la 14 (or E hex) wich remainder 8, and 8/1 la 8, ao 
1000 decimal la 3E8 hex. 

Now, If you know anything abouc computers, you've heard 
thac chey operate using lots of on-off switches, so lc 
mskes sense chsc chey use blnsry nocsclon, which Is Just 
s bunch of on-off switches (blcs) lined up In a row. But 
why, you ask, ia hex uaeful? Well, lc obviously cakea a 
loc of blca Co repreaenc a slzesble number. For example, 
1000 decimsl la 1111101000 blnsry. lc Curns ouc chsc lc is 
very esay Co converc becween hex and binary, wich che hex 
nocacion Caking far fewer columna Chan binary. While we 
know chac a compucer ia really doing Chlnga ualng binary 
numbera, Chen, we repreaenc choae numbera for human 
conaumpclon in hex, 

To converc hex Co binary and binary co hex, you muac 
flrac know che converalona for che valuea aero Co fliceen: 

Decimal Binary Hex Decimal Binary Hex 






0000 





8 


1000 


8 


1 


000 1 


1 


9 


1001 


9 


2 


0010 


2 


10 


1010 


A 


3 


0011 


3 


11 


1011 


B 


4 


0100 


4 


12 


1100 


C 


5 


0101 


5 


13 


1101 


a 


6 


0110 


6 


14 


1110 


E 


7 


0111 


7 


IS 


1111 


F 



Going hex Co binary, JuaC replace each hex dlgic wich che 
equivalent four bits in binary, so ABC hex la 
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1010.1011. 1100 or 101010111100 binary. Froa binary to hex. 
■ pile tbe nuiber Into (our bit aectlons froa right, and 
replace each group of bits with the equivalent hex digit, 
e.g. binary 1UII0I000 la 0011,1110,1000 U hex 3£8. 

Having gone over baae converalona, fli now reveal that 
programmers rarely convert by hand. While It la 
Important to understand the principle!, there la no 
reason to put up with the drudgery Involved, lnatead, 
programmers typically uae calculators like the Tl 
Proirinir or the HP-16C. Host debuggera have 
cooveralon abllitlee, alao. In OS-9'a debug, the "»" 
command does converalon duties, printing both the hex and 
declaal representstlons of s nuaber. To convert hex 3EB 
to declael, antar the coaaend 'v 3eB'. To convert 1000 
declaal to hex, enter "v 11000'. The pound sign before a 
nuabar is debug'a way of recognizing declaal notation, 
with hex being the default. 

At this point, you Bight be wondering why. If the coaputer 
can convert froa hex to daclaal and back eo easily, why 
bothsr with anything other then the familiar daclaal? 
Well, ilnce a coaputer actually uaea binary, there are a 
nuaber of placaa where It Juat aakea oore venae to stick 
with hex, which la binary's next-of-kin. For lastaoce, In 
a 68000, aeaory sddreesea go froa to 16777215 declaal. 
Thla laat la not an eaay nuaber to reaeaber. In hex, 
though, the addresses are froa to FFFFFF. nice regular 
nuabera which are s»ich eaaler to handle. 



Finally, a convention I'll uae froa now on. When talking 
about a particular value, you auat be careful to specify 
what notation la being uaed. For exaaple, fsced with the 
value 1001, la thla binary, declaal, or hex? To avoid 
confuelon, preflxea are uaed to Indicate the base. For 
binary, the prefix la 'X', while for hex It la '$'. 
Declaal, being the notation we are aoat used to, takea no 
prefix. Thus, 1001 • 53E9 - X 1 11 1101001 . Be careful, 
though. Thla convention la not alwaya true. In the 0S-9 
debugger, a nuaber without a prefix Is hex, while a 
declaal auet have a pretlx of "*". 

Wasn't That Escltlogl 

1 don't aeea to have enough rooa left to get Into the 
next topic, but like 1 said before, lt'a better to atart 
• lowly then to rush over the f undsaent si s . Host 
everybody out there probsbly slready understands hex snd 
binary, but It wouldn't do to abandon thoae who don't and 
need a tutorial like thla to understand what will follow. 

Anyway, next month I'll actually atsrt deaonat rating aoae 
actual 6(1000 At,. Also, unavoidably, l'a going to have to 
aay aoae things about 0S-9 aoaory oodulea, relocatable 
aaeenblera, and linkers, elnce thst'a what I'll be ualng. 
I'll also go Into the operation of the debugger. 



"C" User Notes 



Cdqar fl. (Bud) Pass, Ph.D. 
1*5*. Letts Lane 
Cunyers, Ca 30207 

Thla chapter dlacuaaea the new veralon of the INTROL C 
coapller for FLEX, UNIFLEX, and OS/9, the new veralon of 
the HcCnah C coapller for FLEX (aarketed by 
Wlndruah/S.E. rlaDlA - *« ace catalog thla issue) and 
covers B-treee, aa uaed in a text search algorltha. It 
alao contlnuea the OFrobleaa feature aklpped In recent 
columns . 

1NTKOL C OONPUKK FLEX UPDATES 



except one, and should appear without the "extern" 
declaration In exactly one aodule. 

The new preprocessor recognizes two new paeudo-aacroa, 
"_L1NE " and " FILE ", which are automatically replaced 
by the current line nuaber and current file name , 
respectively. Thla la expected to be uaed in debugging 
and In error aessagea. The preprocessor hsa been 
nod If led to check for the correct nuaber of parsaeters 
In aacro Invocations, and to check for several other 
syntactical situations Involving macros. 



The latest veralon (v.l.t) of the 1NTXOL C coapller 
contains several improvements arid enhancements froa 
eerller versions. 

When specifying coaaand line options for the 1NTK0L C 
coapller oodulea, a '-' aay be aubatltuted for an '-' 
and a ' :' aay be aubatltuted for a ';'. Thla la sn 
atteapt to accommodate the peculiarities of the various 
operating ayateas under which the INTKOI. C coapller 
runs. 



A new utility program, called 
the new INTROI. C coapller. It 
with lta correepondlng aaaeabl 
to fora a new asseabler 
containing each C aource progr 
the aaaeabler language atat 
atateaent. Thla la a feature 
which waa alaalng froa prlo 
coapllera. It is especially 
prograaa froa the aaaeabler la 



caerge", is supplied with 
merges s C source prograa 
er language aource prograa 
language aource prograa 
aa atateaent, followed by 
eaents generated froa that 
of aset other C compilers 
r veralona of the 1NTR0L C 
uaeful when debugging C 
nguage Hating. 



A new option la provided to produce a aaaeabler language 
prograa Hating, which aay be placed on the standard 
output or In a dlak file. 

The Interpretation ol the "extern" declaration haa been 
changed to be the same as that used by UNIX. In a 
multi-module C prograa, each coaaon variables should be 
declsred with the "extern" declaration In all nodules 



The coapller wee modified to better check tor end report 
several types of errore In the C source program and to 
properly allocate aemory for partially initialized 
structures. tt was also audit led to correct several 
code generation problems, including the Improper 
generation of "bra" when "lbra" should hsve been 
generated. 

The new linker optionally provides s complete symbol 
croaa-reterence output file and renaaea certain linker 
output fllea to avoid naalng conflicts with F1XX. 

The new loader no longer automatically cleara 
uninitialized data apace to zeroea. A coaaund-llne 
option la available to force the clearing of 
uninitialized data apace, if required. 

Several coapller bugs were corrected In the new relesae. 
One Involved the occasional generation of "bra" and 
alallar short relative Instructions when "lbra" and 
alallar long relative Instructions would have been 
generated. Another Involved the Incorrect generation of 
code Involving both the (J and X reglatera which cauaed 
the following atateaent to be processed incorrectly: 

If ((**lp - ((nua » O 4 OxOf) + '0') > "9') ... 

In testing a release version of thla new compiler, I waa 
able to verify the new featurea, but found one exlatlng 
problea. 
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The 1NTK0L C compilers do not handle quoted seringa or 
redirection on the command line properly In FLEX. 
INTROL C once handled both quoted strings and 
redirection on the command line properly, but doea not 
do ao, aa of version 1.5. Note that the "1" FLKX 
command doea not offer a complete substitution for Input 
redirection, aa FLEX reverts to the terminal after the 
Input file reaches end-of-flle. and the user must 
manually enter control-D. 

Contact ** S.E. MEDIA - aee catalog thla Issue If you 
are Interested In their new C compiler. 

MCCOSH C COMPILER PLEX UPDATES 

The latest version (v. 26) of the PLEX version of the 
McCoah C compiler contalna several Improvements and 
enhancements and Introduces one new problem. The HcCoah 
Standard C Library and manual are aleo revised from 
earlier versions. 

The I/O section of the Standard C Library was heavily 
modified. Random file processing waa added, allowing the 
creation, acceaalng, seeking, and closing of PLEX 
random-type files, and allowing the random acceaalng and 
seeking of sequential files. The ability to open files 
to any device attached to the system was Incorporated. 
Terminal access waa enhanced by allowing "ttyaet" 
parametera to be altered from within a C program. The 
lower-level I/O functions, like "open" and "create", 
have been modified to allow the acceaa to and creation 
of binary files. The higher-level 1/0 functions, like 
"prlntf", have been changed to buffer data In both 
directions. Direct acceaa to the PLEX FMS FCB areaa la 
now supported in a manner similar to that uaed by the 
INTROL C compiler for PLEX. 

The "toupper" and "tulower" (unctions in the Standard C 
Library have been revised Co check that their argument* 
are lettera (of the appropriate caae) before converting 
them to upper or lower caae. K and R la ambiguous on 
this point, caualng a great amount of Inconsistency on 
the handling of these functions. However, the UNIX 
System V C compiler Standard C Library "toupper" and 
"tolower" functions check their arguments before 
converting them. 

The "exit" function now places Its argument (aaaumed to 
be of type "unsigned char" Into location SCC20. Thua 
aubaequent programs may check this value and act 
according to lta contenta. Since there are versions of 
FLEX which do not preserve registers across system 
calls, the compiler now ssves sll "unused" registers 
before each ayatem call and restores them afterward. 

The McCoah C compiler now recognizes the "unsigned char" 
type, representing each byte aa decimal valuea to 255, 
rather than -128 to +127. for the "char" type. 

A new aectlon of the manual describes In much greater 
detail than previously how to generate atand-alone 
programs written in the C language. It alao provides a 
short monitor (written in C and assembler code) which 
could be used ss-la or aa a baala for more aophlat lcated 
dedicated uae . The monitor la alao provided on the 
release dlakette to aaalat thoae wanting to uae It. 

Another new aectlon of the manual provides a aet of 
functions (written by Ron Anderaon and published in 'bit' 
Micro Journsl) which Implement the "sine", "cosine", 
"tangent", "arctangent", "absolute", "square root", 
"logarithm", "antllogarlthm" , "polynumlal", and 
"exponential" scientific functlona, which are not 
currently Included in the McCoah Standard C Library. 

In testing a pre-release version of this new compiler, I 
was able to verify aome of the new featurea, but found 
several new problems and discovered that aome 
previously-reported problems still existed. Since this 
information haa already been sent to Wlndrush, perhsps 
some of the problems will be aolved In the releaae 
veralon of the new compiler. 



The "ttyaet" parameters are now Incorrectly applied to 
output to the printer and through other precomosnda, 
auch as "0". The revised McCoah Standard C Library 
needs to be modified to check for output being sent to 
other thsn s termlnsl device to prevent this problem. 
To avoid thla problem, the uaer can set the "ttyset" 
width end depth parametera to zero. In falrneaa to 
McCoah, TSC Extended BASIC haa thla aame problem. 



The buffering of all I/O exc 
stderr can cause some subtle 
program output to the standard 
processing of random files, 
with the order of progrsm outpu 
device may either insert csl 
spproprlste locations, such ss 
stderr, or may inhibit buffer 
on "aetbuf(atdout .NULL)" lnlt 
processing functions do not a 
buffered fllea, but seem to wor 
"setbuf(fp,NULD" lmmedlstely 
opened. 



ept thst going through 

problems in the order of 

output device and in the 

The uaer having problems 

t to the stsndsrd output 

Is on "f f luah(atdout)" in 

before each output to 

lng on atdout with a call 

lally. The new random 

eem to work properly with 

k correctly with calla on 

after the fllea are 



Programs slmost Invariably 
under the new version of the 
older versions. This la c 
thoae programa, such sa aasem 
and others, which sttempt 
possible In order to 
capabilities, snd tliose which 
available memory. Although 1 
natter thoroughly, moat ot 
the new Standard C Library fu 



generate larger programa 

compiler than under the 

rltlcal only in the case of 

biers, data base managers, 

to occupy ss much memory 88 

Improve performance and 

prevloualy barely fit into 

have not Investigated the 

the inflation seems due to 

nctlona . 



The problems related to the linkage of external 
variables among separately-compiled modules remain. The 
Mlcroware veralon of the McCoah C compiler hss fixed the 
majority of these problems. 



The commsnd line sea 
Neither the McCoah no 
strings or redirect 
FLEX. McCoah haa 
although It clalma 
command line properly 
does not offer s 
redirection, aa FLEX 
input file reaches 
manually enter contro 



nnlng bug reported earlier remains. 
r INTROL C compllera handle quoted 
Ion on the command line properly in 
apparently never handled either, 

to handle quoted strings on the 
Note that the "I" FLEX command 

complete aubatitutlon for input 
reverts to the terminal after the 

end-of-f ile , and the uaer must 
1-D. 



If a preprocessor command Is mis-spelled, the error 
message may be sent to a temporary file and dlacarded, 
sometimes csuslng weird results or truncated 
compilations with no seeming explsnstlon. For lnstsnce, 
if "fdeflne" la mla-apelled as "fdlflne", the compiler 
will quit with no error message printed on the terminal. 

Contact ** S.E. MEDIA - Wlndruah if you are Interested 
in their new C compiler. 

B-TREE SEARCH ALGORITHM 

it-Tree structures may be uaed to search and update large 
acta of data with great efficiency, using reasonably 
staple algorithms. They are especially aulted for very 
large files in which higher-level indices may be kept in 
main memory for speed. 

The first published description of B-treea waa In 1972 
by Bayer and McCrelght In "Acta Inf ormat lea" . Their 
definition of a B-Tree of order m (aa modified by Knuth 
in "Sorting and Searching") la as follows: 

1. Every node except the first haa no more than m 
aona. 

2. Every node except for first snd flnsl haa no 
leas thsn (2m-l)/3 sons. 

3. The first node hsa at least 2 and no more than 
2[(2»-2)/3]+l aona. 
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4. All final node* appear on che aaae level. 

5. All nonflnal nodea with k aona have k-1 keye. 

Knuch provides Che derivations of Che upper and lower 
bounds tor the performance of t>P«r*t.tune on 8-trees, but 
Chey are extremely good. In particular, search 
operations are especially efficient with B-trees. 

The Insertion (and deletion) algorithms are slower and 
■ore coaplex Chan Che search algorlcha. ss Che nodea svay 
require splitting (and Joining). Luckily, aany useful 
applications have no need of a deletion algorlcha and 
perfom aany nore sesrch operadons Chsn Insertion 
opersclona. The relaced binary sesrch algorithm alao 
haa efficient sesrch and slower Insertion snd deletion 
operadons. 

An exaaple of such a S-trce program appears below. lc 

copies non-duplicated lines froa les scsndard Input Co 

lea acandard output, without sorting les Input or 

requiring les lnpuc Co be In order. lc is lncended Co 
be used wlch a speller, afcer Che words hsve been 

Isolated, to eliminate duplicates before the words are 
looked up In the dictionary. 

Although the B-tree It developa internally Is sorced 
Che order of les output follows the order of lea Input. 
lc could be modified Co optionally suppress Che ouCpuC 
of Che non-duplicated lines ae they are read and Co 
ouCpuC che Unas froa Che B-tree when les lnpuc haa 
reached end of flla. This would slow lea use as a 
filter, aa no ouCpuC would be available while lnpuc were 
still being proceaaed. 

/* This prograa gata one Una froa lta 
standard Input and aearchea for the 
line In an evolving binary tree sorted 
alphabetically. If che line la noc found, 
lc la lnaerced In che cree and put to lea 
acandard output. If the line la found, 
It la not outpuc. 

Written by Bill Vaughn, 

CVS, U of Rochester, Rochester, NY 
•/ 

/Include <stdlo.h> 
/Include <ctype.h> 

struct btraenode /* b-tree atruccure */ 
I 

char *etr; 

acrucc bcreenode •left, "right; 

• i 

acrucc bcreenode *hesd, 'alloc, *hend; 

acrucc bcreenode "nextnodeO, *allocbtree() ; 

char "cstore, "cend; /* char array beginning and end */ 

char *nexcacr(), *slocstr(), •cslocO. *aaloc(), *gets(); 

Ideflne BNODES 4096 /* InlC alloc for bcree nodes */ 

/define STRING 409b /» lnlc alloc for strings */ 

/define ADDNOD 1024 I* Addl slloc for bcree nodea •/ 

/define AODSTR 204B I* Addl alloc for strings */ 

svaln(argc, argv) 

char *argv| ] ; 

I 

lnt n; 

char "q ; 

acrucc bcreenode *r; 

q - cacore - alocatr(STRlNC) ; I* string apace */ 

cend - cacore * STRING; 

If (gaca(q) — NULL) I* get first line */ 

exlt(0); 
alloc - head - allocbtree(BNODRS) ; /* tree nodea »/ 
hand - head ♦ BUODES; /* logic depends upon csloc */ 
alloc->atr - q; /* to set all space to NULL */ 

puta(q); /* ouCpuC che line */ 

q - nexcscr(q); /* get new string pointer. */ 

while (geta(q) I- NULL) 



If (r->lefc I- NULL) 

I 

r - r->left; 

continue; /* traversing lefc */ 
) 

else 
[ 

I* Creaclng a lefc aubcree */ 

r->lefc - nextnodeO; 

puta((r->lef t)->scr - q); 

q - nexcsCr(q); 

break; /* get next line */ 
I 



else 

t 



( 



r - hesd ; 

while (n - scrcap(q, r->str)) 

I 

If (n < 0) 



If (r->rlght I- NULL) 
\ 

r - r->rlght ; 

continue; /* traversing right */ 
) 

elae 
1 

/* Creaclng a rlghc subcree •/ 

r->rlghc - nextnodeO; 

puts((r->rlght)->ecr - q); 

q ■ nexcstr(q); 

break; /* get next line */ 
I 



) 

exit(0); 
J 

/* Returns pointer Co an array of "n" bcree nodaa. */ 
acrucc bcreenode "allocbt ree(n) 
lnc n; 
I 

acrucc bcreenode *x; 

If (NULL — (x - (acrucc bcreenode •) 
caloc(n, alteof (acrucc bcreenode)))) 

f 

f prlntf (stderr , "No neaory for tree nodeaW); 
exlt(l); 

I 

return (x); 

! 

/* Returns s pointer Co che next available bcree node. 

CeCa aore space If necessary. */ 
acrucc bcreenode "nextnodeO 
( 

If (♦♦alloc >- hend) 

hend - (slloc - sllocbtree(AOONOD)) ■+ ADDNOD; 
return (alloc); 
) 

/• Returns pointer Co 'n' byces for scrlng storage. */ 
char *alocacr(n) 
lnc n; 
I 

char *x; 

If ((x - smloc(n)) — NULL) 

1 

f prlntf (stderr, "No neaory for strlngeW); 
exlc(Z); 
) 

return (x); 
J 
/* Returns a pointer to the next available scrlng apace. 

Ceca sore apace If neceaaary. */ 
char *nexcacr(a) 
char *a ; 
{ 

chsr *x; 

If ((x - a + strlen(a) ♦ 1) >- cend) 

cend - (x - alocatr(ADDSTR)) + ADDSTR; 
return (x); 
I 

/* Allocscea apace wlch abrk 
(replacea nalioc). */ 
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char *o*loc(n) 

l«t n; 

1 

char *»; 

I • abrk(o); 

1( ((lot)x •- -I) 

rtturn MULL; 
■lu 

r«turo (m); 
> 
/* Aliocatee apace with ebrk end cleare It 

(replecea celiac). •/ 
char *celoc(a,m) 
lot n,m; 
I 

char ai[ 

loc 1; 

a - abrk(l - a - ■>; 

li (Unt)x — -I) 

racura HULL; 
wtiio (—1 >- 0) 
x(i! • oxooi 
racura <»); 
I 



> 



Jar (p - pac, t - arc; (<<» - *p*+) — «£♦♦) M a); )j 
If (») 

*doc++ - a.rctt; 
alaa 

lor (p - rep, arc - t - J, -Mc; *p; *dec++ - *?♦♦); 
I 

*det - '\0"i 
return (c); 



C PROBLEM 

Thla program uaea Che string replace function (described 
In an earlier chapter) to provide a string replacement 
progras. In which the file names and seringa are 
provided on the coasts nd line. The HcCosh FLEX coaasand 
line acannlng bug la handled (to the extent possible). 
The Invocation sequence la aa follows: 

replace old-file new-file old-atrlng new-string 

floclude escdla.h> 
flncluda <ccypa.h> 

mala(orgc.orgv) 
lnt argci 

char *argv]|; 
1 

char llne[246], llnal[2S6], 'oldatrlng, «nawetriag, »i, p - 0; 

PlUi 'Input, 'output ; 

lnt count • 0, c, a; 

putc (*\n", atdarr); 
If (argc < 4) 

I 

(puto ("una: raplacc old-tile new-file ", atdarr): 

fpuca ("\"ald-atrlng\" \"new-ecrlng\"W, atdarr); 

salt (I); 
) 
li (((input - iopen (•♦♦argv. "r")) — NULL) || 

((output - fopan <'++argv, "w")) — SUU)) 
( 

(puta ("can't open (lis ". atderr); 

fpuca Cargv, acdarr); 

ealt (I); 
I 
l( ('(oldatrlng - •♦♦arg») « *"*) /• HcCosh bug */ 

lor (a • oldatrlng ■» I; 'a; ♦♦!) 

•(« - 1) - ((«» — "•■) T *\u- ; '«); 
It (•Im»iu1>« - •♦♦ergv) « -"") /* HcCoab bug */ 

for (x - newalrlng ♦ 1; 'x; t*a) 

•(a - I) - ((«* — -") ? '\0' i *x); 
while (fgetadlae, 256. input) 1- NULL) 



Extend thla progras to optionally replace atrlnga rapreaantlng 
complete C variable named, rethcr than partial names. Thus, 
aaaumlng an old-atrlng of "xxx" end nav-atrlog of "yyy". It 
would change a variable named "axa" but would not change 
varlebiei oamsd "satxxa" or "xxxzax" or "uituiii 14 , aa the 
original program would. 

iXAHFLB C FHOCIAM 

Following la thla month'o exaaple C program: It provldaa ao 
alternative veralon of the detab program of an earlier chapter. 
Ihla version expends tdbe, rather than replacing thorn wltb 
epacee. The nuaber of coiuono between tebe may b« apaclded. 
If It la apeclfled aa aero, the (11* la aaaumad to ba a fIJSX 
formatted file with taba followed by codea repreeeotlng 
compraaaad apacea. Standard input and output are uaed, to 
facilitate the uae of the program aa a filter oo ayatamo 
aupportlng plpaa and radiract Ion. 

'Include <etdlo.h> 
'Include <ctype.h> 

mslo(argc, argv) 
lnt argc; 
chsr 'argvl |, 
( 

lnt col - 1, n - 8, c; 

char 'ap; 

PIUS «(d. *id; 

fd • atdln; 
td - stdout; 
If (ergc > I) 

n • atoltargvll J); 
If (n < 0) 

n - 1; 

while ((c • getc(fd)) !- KDP) 
1 

ewltch (c) 
I 

ceee "\f: 
It (n) 
1 

do 
I 
putcC ', td); 

Col+«; 

] 

while ((col X n) I- 0); 



t 

elee 

I 



1 



count *- strrepl (llnel. line, oldatrlng, nawotrlng); 
fpuCa (llnel, output); 



I 



) 

fcloea (Input); 

telex, (output); 

(or (i - 10000; »; i /- 10) 

It ((c - count / t) l| P I I U — D) 

! 

putr <(c t -U'), .td.rr); 
cuunt — c ' a; 
♦♦Pi 
) 
(pute (" atrlnga raplacad\n" , atderr); 



1 



If ((c - getc(fd)) •• gor) 

exlt(o); 
for (; c; — c) 
1 

putcC ' . td); 

col«; 
) 



break; 
ceee '\n'; 

putc('\o", td); 

col - 1; 
ceae -\0": 

break; 
esse "\r": 

11 (n — 0) 



etrrepl (dec, ere, pat, rep) copies "ere" to "dat", 
replacing all non -over lap ping inatancea o( "pac" by "rap" 
returning the number o( rcplecementn performed, 

strrepl (dat, arc, pat, rep) 
cher "dat, 'arc, 'pat, *rep; 
I 

cher a, *p, «c; 

lot c - 0; 

while (*src) 
( 



( 



I 



putc("\n'. td); 

col - 1; 
break; 



default: 

putc(c. td); 

col+^; 
I 



) 
silt(0); 



" All ao(tware mentioned Is (raah In atock (or 
Immediate ahlpaant by s.E. MEDIA, aee their catalog - 
thle l«au«. 
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UniFLEX 

User Notes 



Kenneth R. Icwli 

Automation Engineering 

1691 Shelby Oak Dr. N. 

Suite 4 

Meaphla, TN 38114 

last month 1 began a aultl-polnt dlacuaalon of UniFLEX 
Operating Syatea and varloua toola, technique! and 
endeavora. Thla aonth, I would like to apend aoae tlae 
on a few of the toola. In particular, "FLEX for 
UniFLEX" and "tacc" (the newly releaaed "C" coapller 
froa Technical Syiteaa Conaultanta). 

FLEX for UniFLEX la exactly what lt'a naae lapllea. 
Host FLEX-hoated software will run In thla new 
environment with no rest rlct lona. The rulea are 
alaple. . . .If It uaea standard entry points, It will aost 
likely work! Becauae UniFLEX aanagea the hardware 
environment for the user, direct acceaa to AClA'a, PlA's 
and the like will NOT work) Never the less, having 
acceaa to the rich act of FLEX utilities and languages, 
while allowing full uae of UnlFLEX'a facilities Is aore 
power than moat other systeaa can ever hope for. 

Before anyone gets upset, let ae ssy that 1 don't clsla 
UnlFI.EX will replace FLEX or even atteapt to. UniFLEX 
does. however, offer far aore In terse of 
uaer/productlvlty enhanreaent. Moat projecta, are 
easier to accoapllsh In the UniFLEX environment and of 
course, aore people can participate through the aaae 
hardware. Uae of a common development tool, 
simultaneously, has distinct advantages over the old 
"wait your turn" approach I But enough of that, let ae 
tell you about "FLEX for UniFLEX." 

FLEX for UniFLEX coaea aa a stsndsrd 8-lnch disk with 
asnual and an additional utlllty-aet. These utilities 
repreaent an extension to normal FLEX In that they allow 
user acceaa to the UniFLEX facility that la "hosting" 
FLEX. As delivered, FLEX for UniFLEX allowa up to four 
"drives" to be attached. The four drlvea are NOT 
restricted, tlaugh, In that they Bay be Intermixed 
between flopplea and hard-dlak drlvea called 
"flle-dlaka." A "flle-dlak" la a apeclally formatted 
UniFLEX file that looka like a regular FLEX dlak to the 
hoated ayatea. An advantage here la that any (or all) 
of the "drlvea" may reside on one (or aore) of the 
UniFLEX drlvea and or courae, wlncheater drlvea are 
Included! Imagine having forty (40) megabytes of dlak 
apace divided between your old favorltea (froa yeara of 
work with FLEX) and your neweat venturea (developed 
under UniFLEX) 

I have been ualng FLEX for UniFLEX for about a year now 
and have found It to be Invaluable aa an aid for 
"transferring" previous development efforts to my new 
environment. Additionally, I uaa aoae of the old 
atandby toola (found only In the FULX environment) to 
toy with new ldeaa or old problems. Once an Idea gela, 
or problea la aolved, I move It to UniFLEX through one 
of the new utilities provided, and continue froa there. 
Thla article, and aany more to follow, are an exaaple of 
"reversing" the procedure. I write the text (using 
TSC's newly released "UniFLEX Screen Editor"), check the 
spelling with Stylo Systea's "Spelling Checker", text 
proceaa It with TSC'a "pr" and apool it to the printer 
ualng the UniFLEX "Enhanced Spooler" package. Once 
ecceptable, 1 tranafer It to a FLEX dlak via FLEX for 
UniFLEX ualng the "copyuf" utility provided. Larry 
Ullllaaa than tranafera the article to a ayatea at ~68' 
micro-Journal. Although •mall, thla la Just the kind of 
"convenience" thst FLEX for UniFLEX brings to my world. 



Another such convenience Is TSC's new "tacc" coapller. 
Thla new coapller repreaents a full lapleaentatlon of 
Kernlghan and Rltchlea'a "C" language and la NOT lacking 
In any way for full compliance with "C" for UNIX, Syatem 
V) Releaae I. The coapller la currently available for 
all atandard 68000 family producta aupported by TSC and 
for a few cuatoa producta. The 68020 veralon supports 
Hotorola'a MC68881 Floating Folnt Coproceaaor by 
generating "math" lnstructlona directly In-line with the 
code. Since the MC68020 handlea auch code aa an 
"exception", there Is very little overhead and coaplex 
functlona are handled directly by the Bath coproceaaor. 
The new CIH1X 68020 aystaa (advertlaed In thla magazine) 
utilizes the combination deacrlbed above and according 
to an "lnalder" at TSC, Is "....the fsstest machine 
they've ever aeen." 

The TSC "C" coapller aporta a atandalone pre-proceaaor 
(aore for the 6809 veralon than others), s two-psaa 
coapller aectlon, two-paaa relocating aaaeabler, an 
optimizer and a linkage editor. Code can be generated 
and run with a command a almple aa "tacc aycode.c" 1 
Multiple aource fllea are ellowed. Input can be In "C", 
"aaaeabler", or "relocatable object" format. 
Conditional compilation la fully aupported aa well aa 
featurea that allow for eaay generation of libraries. 
Coaplex development processaa are Bade simpler through a 
facility thet allows for "selective" re-coapllatlon and 
linking of modules. Finally, all aource code labels are 
appended to the binary file ao that TSC'a aymbollc 
debugging tool, "qdb" can ahow you where you went wrong! 
A "atrip" utility Is provided for removing the syabola 
later. 

I've uaed the "tacc" coapller for alx (6) aontha now and 
only found one boo-boo In the "macro expanalon" feature. 
Thla waa fixed Immediately by TSC and a new copy 
arrived the next morning I In term* of performance .. .we 
here at Automation Engineering have found It to be quite 
efficient and generatea rather coapact code. Early on, 
we dlacovered that the effort expended trying to find a 
"aloppy" aectlon of coapller generated code waa NOT 
worth the aeager gain In apeed or code apace. Nowadaya, 
we Juat crank out code, aeet deadllnea and aalle 

A "Real World UniFLEX Project" 



Speaking of deadllnea. .. .a recant project (ualng the 
68010) waa Bade possible snd profitable by utilizing 
"UniFLEX VM" for the 68010 and Varaa-Hodule European 
(VX£) hardware. The roablnatlon really ahlnea In the 
Industrial Control arena. We were aaked to develop a 
ayatea that would aort producta packed Into alx (6) 
different typea of boxea , queue thea up (baaed on bones 
per pallet) and route thea to another ayatea for 
palletizing. Each box entered the conveyor ayatea froa 
two (2) feed conveyors. A pneumatic "atop" releaaed the 
waiting box and allowed It to paaa a "LASER" acannlng 
device ao that a "barcodad" label could be read by our 
ayatea (RS-232, 9600 baud, Aaync, record format 
w/checkeua + scknowledge) . Once scanned, the deta 
gathered waa "piped" to a data-baee program for look-up 
and verification. The data-baae then "piped" a reeponae 
to the "logic" prograa (the teak that actually aaneged 
the conveyor ayatea) and allowed the box to proceed down 
the conveyor to a "tranafer point." Since there were alx 
(6) auch tranafer points, the boxea were "tracked" by 
monitoring trenaltlona of photo-eyea placed along the 
route. At the proper point for a particular box, a 
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transfer aechanlam waa activated 
"main" conveyor to queue. When 
the way clear, all boxes In the q 
an "outfeed" conveyor where they 
"palletizing" machine. Our ayate 
motors, box "stops" (solenoid a 
LASER Scanner, an Operator Keypad 
Conaole (ANSI CRT w/Keyboard) and 
a ban* of five (5) "aerial 
Interface modulea" (uaed 

llmlt-awltchea and photocells a 
motors and solenoids). 



and the box moved from 

a queue waa filled, and 

ueue were releaaed to 

arrived (shortly) st s 

managed sll conveyor 

ctusted, pneumstlcs), s 

(9600 baud), s System 

most demsndlng of sll, 

ASCII remote digital 

to read all field 

a well aa drive the 



With all of the above, boxea moving through the system, 

I/O points being scsnned snd such. The system wss only 
running st s fraction of It's cspsclty snd sll under 
UnlFLEX I I I 

Next Month 

Next month I will describe another system thst Is 

managed by UnlFLEX and runa a ROBOT Package 

Handler. .. .we call It the "One-Armed Octopus"! 1 Also, I 

will be describing some wild COLOR Graphics packages 

thst sre available for some of the standard VME hardware 
that runa UnlFLEX. 
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The University of Weat Florida 
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Part 8 Concurrent Processing snd Ads's Tssks, 

Two of the ususl requirements of embedded computer 
systems sre real-time processing snd concurrency. These 
two concepts sre related, with real-time requirements 
often being met by use of concurrent processing, or 
parallelism. In genersl, the term concurrent processing 
refers to those situations in which the execution of 
more than one sequential thread of code takes plsce In 
parallel — or at least It hss the sppesrsnce of occurring 
In parallel. The term concurrent programming refers to 
the tools snd techniques for desllng with concurrent 
processing. Concurrent progrsmmlng Is typlcsl In the 
development of operating system snd real-time ayatea 
aoftware, and It often distinguishes these kinds of 
systems from other softwsre systems. 

In genersl, concurrent processing Is obtsined In 
one of three wsys: 

- mult lcomput lng--ln which different processes 
execute on totslly different computers, but with 
detsiled communication requirements, 

- oullpr oceaslng — In which different processes 
execute on different processors within the same 
computer, possibly sharing the ssme memory snd 
other resources, 

-multiprogramming — in which different processes 
sre executed In sn lnterlesved manner on a single 
processor. 

There Is currently s trend towards sbstrsct concurrency 
that la unrelated to the paralleliaa of the actual 
target computer. The data flow dlagrama found In 
certain aoftware engineering techniques csn be 
envisioned aa networks of concurrent processes, even 
though eventusl lmplemsntstlon hss trsdltlonslly been In 
s sequential lsngusge. The Ads lsngusge supports the 
concept of sbstrsct concurrency by the Inclusion of 
concurrent progrsmmlng festures ss sn lntegrsl psrt of 
the lsngusge, regsrdless of the sctusl parallelism 
preseot In the tsrget environment. Esch thresd of code 
in sn Ads program is considered to be executing on s 
single logical proceaaor. A program containing only a 



single thresd of code—the main program, ao to apeak — 
executea on a single logical proceaaor, even though the 
actual Implementation may be obtained by multlproceaalng 
or multicomputing. Ads progrsas executing more than one 
thread of code In parallel accompllah thla concurrency 
by the uae of the Ada taak — one task for esch additional 
thread of executing coda. Kach task alao executea on a 
single loglcsl proceaaor, even though the actual 
implements t Ion aay be obtained through multicomputing, 

ault lproceaalng, interleaving on a single processor, or 
any combination of these techniques. That la, the 
language and lta run-time aupport environment completely 
Isolate the progrsmaer from the Implementation in such a 
way that the concurrent programming can be developed aa 
though each Ada taak were to execute on lta own 
proceaaor, A very specific set of rules determine the 
tssk dependencies snd the intersctlons snd 
communlcstlons among tssks. 

In general, embedded ayatem softwsre applications 
fsll into one of three cstegorles: 

- Synchronous or purely cyclic: All tssks 
performed by the softwsre sre, by 
definition, periodic snd execute In s 
synchronous, sequential psttern sccordlng 
to s fixed schedule, Some very simple 
control systems fit Into this category. 

Moatly cyclic, with aome aaynchronous 
events: Host tasks sre cyclic In nsture 
snd csn be echeduled de te rmlnls t lcslly , 
but some asynchronous events snd burst 
computing losds muat be handled without 
Interfering with the cyclic proceaslng. 
Many modern wespon control, flight 
control, snd navigation systems fit Into 
this cstegory. 

Asynchronous: Most tssks sre ssynchronous 
rsther thsn cyclic In nsture. These systems 
depend slmoat exclusively on ssynchronous, 
Interrupt driven processing. Stimuli srrlve st 
unpredictable times, snd softwsre responses must 
be delivered within rigid time constrsints even 
under pesk losd conditions. These kinds of 
systems are aald to be event-driven. Command, 
control, .communlcstlons, snd Intelligence 
systems (C I) fsll Into this cstegory. 
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The me ana of achieving the proper achedullog of caaka In 
eabedded coaputer eyeteaa haa typically been provided In 
one of two waya: 

- By uae of a uaer written aupervlaor 
prograa Implemented In eaaeably code. 
Thla prograa would noraelly reapond Co 
Claed Interrupts In order to provide the 
achedullog proceaa. Context awlcchlng-- 
che aavlng and restoring of processor 
states— must be provided by this progrsa. 

- By use of a resl-tlae operating systea 
kernel or resl-tlae executive. The 
progrsa aust then aske operating systea 
cslls to sccess tssk control, aeaory 
asnsgeaent, snd Interrupt handling 
fscllltlee of the operating systea. 
Operstlng systea services such se 
seasphoree, mailboxes, snd queues sre 
used tor synchronization of and 
coaaunlcatlon aaong concurrently 
executing teaks. In essence, s real- 
t 1 a e kernel provides s bssls 
sround which s spe c Is t -purpose operstlng 
systea le generated, with the 
concurrently executing tseks In the role 
of processes within the operstlng systea. 

The use of s resl-tlae operstlng systea to serve ss sn 
Interface between the hsrdwsre snd the sppllcstlons 
progrsa greatly slapllfles the developaent of eabedded 
eyetea softwsre. In addition, becsuee Che operetlng 
eyetea Itself normally haa had wide uae, the reliability 
of the resulting softwsre Is ususlly enhsneed. 

In the first cetegory of eabedded systea aoftvere-- 
for which synchronous festures doalnste— the traditional 
approach to reel-else operating ayateaa haa been the 
cyclic executive approach, In which a scheduler 
sllocetes to tssks certsln tlae Intervale In which to 
execute. Because different csska ofcen suae execuce ac 
dlfferenc cyclic racea, elaborace aechoda for slloceclng 
proceaaor clae auac ofcen be developed. The saallesc 
clae Interval allocated by Che scheduler Is celled s 
alnor cycle. Kultlplea of Che alnor cycle --uaual ly 
powers of Cwo aulc lplea — are called asjor cyclea. The 
varloua caaka execuce within cheee cyclee , and each ceak 
la run Co coaplecloo snd hse scceee Co all global daca. 
Aaynchronoue evenca, If preaenc, are usually algnaled by 
Interrupts. The lncerrupt eervlce suit be provided 
quickly enough so thst It doee not Interfere with the 
cyclic portion of the progrsa. Often, the cyclic snd 
seynchronoue functions sre run ss foreground processes, 
with background process lng--thst la, processing using 
whatever processor tlae Is not required by the 
foreground tsske — perf oralng low-prlorlty functions thst 
sre not ttae crltlcel. A coaputer self-check progrsa, 
for sxaaple, le often provided aa a background teak. 

for the laat two categorlea of eabedded ayatea 
aoftware--ln which aaynchroooua featurea either are 
preaent to a significant degree, or doalnate the 
softwsre requlreaente — Che cyclic execuclve spprosch 
falls becsuee of Che complexity Involved, Concurrent 
cssklng Is Che besc spprosch In this esse, snd Che 
management of concurrent taaklng Is net easily obtslned 
by the use of a real-time operstlng systea. 

Ada'a approach to concurrent programming makea the 
concurrently executing teak e baalc prograa unit. The 
synchronization of snd coaaunlcst lone among taaka la 
provided within the language lteelf by a proceaa called 
ayochronliatlon by rendezvous. Ada programs, of course, 
csnnot execute without s run-time support envlronaent 
provided by the Implementation. This run-time support 
envlronaant aay well be formed around the aaae resl-tlae 
operstlng eyetea kernel used to provide services to 
trsdltlonel resl-tlae Isngusgea. In an Ada prograa, 
however, no operating eyatea calls sre requlred--all 
ayochronliatlon of and communications among concurrently 
executing taaka are provided by featurea of the language 
Itself. These high order language constructs may cauee 
Invocation of operating ayatea calla by the run-time 
envlronaent, but such action la transparent to the 



prograaaer. ly providing all teak control facilities 
within the high order language, the portability of the 
resulting aoftware le greatly enhanced. 

The Ada teak, together with the aubprograa, the 
package and the generic unit, la one of the four primary 
prograa unite of the language. Like aubprograa* and 
packagea, teaks hsve s two-psrt fora consisting of s 
epeclf lest Ion snd s body; both auet be present. The 
specif lest Ion psrt defines the lnterfsce of the tesk 
with other Ads progrsa unite, while the body contslns 
the Implementation of whstever sctlon the tsek produces. 
Unlike the esse with subprograms snd pscksgee, however, 
tssk e pec 1 f 1 est Ions snd tsek bodies asy not be 
sepsrstely compiled, since they sre not compilation 
unite. They asy be textuslly separated within s 
declarative pert of s progrsa unit, however, In order to 
provide dselred visibility. In addition, the 
specif lest Ion snd body asy appear in the eepsrstely 
compiled specif les t Ion snd body, respectively, of s 
pscksge , In which esse the tssk Is exported by the 
pscksge. 

While eubprogrsa snd pscksge specif lest Ions declsre 
the seeoclsted entltlee — thst Is, they declsre 
eubprogrsma snd packegee--e tsek specification declsres 
s tssk type. Tsek objects csn then be declsred In s 
asnoer snslogoue to sny other object declsrstlon. The 
vslue of sn object of s tssk type dealgnatee a taek, ao 
that aany different tsske of the eaae task type may be 
declared. 

The apec If lea t Ion part of a taek deflnea the 
Interface between the taek and other prograa unite. 
Thla Interface provides the ey nchroo li s t Ion snd 
coaaunlcst Ion requirements of the rendezvous mechanism. 
A rendeivoue Is produced by the execution of sn entry 
cell ststeaent In the celling progrsa unit, coupled with 
the execution of s correepondlng sccept ststeaent In the 
called taek. The entry call and the accept etatement 
sre lnterfsced through sn entry declsrstlon In the 
spec If lest loo psrt of the celled tesk. An entry 
declsrstlon aay hsve s foraal psrt thst contslns s llet 
of forasl psrsaeters. Actusl psrsaetere In the entry 
cell ststeaent sre sseoclsted with these forasl 
persaeters, thus providing the coaaunlcst Ions function 
of the rendeivoue. The only kind of declsrstlon 
permitted In s tesk spec If lee t Ion le sn entry 
declsrstlon. This llaltstlon lapllee thst the only 
lntersctlon between e tsak and any other prograa unit ia 
that obtained through en entry cell. That la, alnce 
there cen be no eubprograaa or pscksges declsred within 
the tsek specif lest Ion , sny subprogrsae or pscksges 
declsred within the tsak body are locel to the taek body 
end therefore cannot be ecceeeed by eny other progrea 
unit. 

Theee concepts csn best be llluetreted by sn 
exsaple In which e teek provldee e buffer between two 
other progrsa unite. One of theee progrsa unite— either 
the aeln progrsa or mother teek—plecee s chsrscter 
Into the buffer by e cell to entry PUT, while enother 
progrea unit retrieves the velue by e cell to entry 
TAKE. The tsek epeclf lest Ion hss the following fora: 



tsak BUPPIR Is 

eotey PUTULEM 
entry CET<ELEM 

sad BUPPKR; 



In CHARACTER); 
cast CHARACTER); 



-- This le e teek object specif lcstlon with 
two entries, PUT snd GET. The forasl 
psrt of esch entry contslns s single 
parameter. In the cese of entry PUT, 
the psrsaeter hea aode la, eo that the 
paraaeter value le peeeed to thle teak 
froa the calling teak. The aode oat 
epeclf led for the paraaeter In entry 
TAKE lapllee that the value le paeeed 
from thla teek to the calling ceak. 
The correepondlng taek body la: 
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TEMP : CHA4ACTKR; 
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begin 

loop 

accept PUT(ELEM : la CHARACTER) do 

TEMP :• EI.EM; 
• ad PUT; 
ecc«pt TAKJ£(ELEM : out CHARACTER) do 

ELEH :» TEMP; 
•ad TAKE; 
■ad loop; 
■ad BUFFER; 

— The teek body consists of an endleaa loop 
containing only the two accept ateteaenta 
correapoodlng to the two entrlea PUT and 
TAKE. 

If aore than one teek object le needed, a taak type can 
be declared by uae of the reserved word type: 

taak type BUFFER la 

entry PUT(EIEH I In CHARACTER); 
entry TAKE(ELBH : oat CHARACTER); 
•ad BUFFER; 

— Here, a teak type is declared. The body 
reaalna unchanged, but one or aore taek 
objecta auat be declared before eny teak 
la dealgnated. 

The teak object declarations. In their elapleet fora, 
alght be: 

BUPFER1, BUPPER2, BUFFER3 : BUFFER; 

in which ceae three teak objecta ere declared. Each of 
theae objecte deelgnetee a separate teak, end theee 
teeka will execute concurrently. The teak apeclflcetlon 
end teak body ere coaaon to each of theee teeka. For 
exeaple, there are elx entrlea now Involved: 



BUFFER_1.PUT 
BUFFER I. TAKE 



BUFFER 2. PUT 

BUFFER 2. TAKE 



BUFFER 3. PUT 
BUFPER 3. TAKE. 



There ere elao the equivalents of three teak bodlea. 

Theae particular teeke will execute concurrently 
with two other taeke. The flret of theae — the producer 
taek — producea cherectera that ere peaaed to teak BUFFER 
through the rendezvoue aechenlea and the entry PUT. The 
eecond teak — the conauaer taek — nbtelna characters froa 
teak BUFFER through the rendexvoua aechenlea end entry 
TAKE. The aeaentlce of the buffering action la 
deacrlbed in the following paragraph. 

All three taaka — producer, conauaer, and teak 
BUFFER — begin execution alaul teneoualy. Teak BUFFER 
will execute to the flret accept eteteaent, at which 
tlae It will be euepended awaiting a rendezvoue. 
Meanwhile, the producer and conauaer taake will be 
executing in parallel. The producer taak will 
eventually execute en entry cell ateteaent of the fora: 

BUFFER. PUT(CHAR); 

at which tlae the rendezvoue will be initiated. The 
peraaeter CHAR will be paeeed to teak BUFFER. Upon 
Initiation of the rendezvoue, the producer teak will be 
euepended while the accept eteteaent (which ende with 
• ad PUT) will be executed. Upon execution of the ead 
PUT eteteaent, the rendezvoue le coapleted, end both the 
producer taak end teak BUFFER recuse noraal execution In 
parallel. Teak BUFFER will execute to the next accept 
ateteaent end await a rendezvoue through entry TAKE. 
The conauaer teak will eventually execute en entry call 
ateteaent of the fora: 

BUFFER. TAKE( CHAR); 

at which tlaa a aecond rendezvoue will be Initiated. 
The value that waa paaaed to teak BUFPER during the 
flrat rendezvoue la now paaaed froa teek BUFFER to tbe 
coneuaer teak. When thle eecond rendezvoue le 
coapleted. teek BUFFER coapletea the loop, again 
executes the eceapt PUT eteteaent, end then awalta 
initiation of a rendezvoue by the producer teak. Thle 



procesa contlnuea, with teak BUFFER alternating between 
rendezvoue* with the producer teak and rendezvoue' with 
the conauaer teak. 

Thla exaaple illustrates the general concept of the 
rendezvoue aechenlea in en Ada prograa. The rendezvoue 
provldee for both synchronization of end coataunlcstlon 
between the two teaka Involved in the rendezvoue. A 
rendezvoue la produced when one teek — the celling taak — 
leauea an entry cell, end the aecond teak—the called 
task'-accepta the call. An entry call la laeued by the 
calling teak through the execution of en entry call 
ateteaent. Note thet the entry call ateteaent specifies 
the entry by neae. end thet it Bay Include e pereaeter 
Hat by which Information la exchanged with the celled 
taak. The entry naae auat be prefixed by the teak nana . 

The called teek eccepte the entry cell when en 
accept eteteaent with the corresponding entry naae la 
executed. The eynchroolzet ion of the two teaka la 
achieved through the specific rules of the rendezvoue, 
while the coaaunlcatlon between the teaka, if any, la 
accomplished by the association of the actual peraaetere 
in the entry call ateteaent with the formal peraaetere 
in the eccept etateaent. The key point here la that the 
rendezvoue la not effected until the celling teak hse 
executed the entry call etateaent, end the called task 
haa executed a correepondlng eccept eteteaent. 

In a staple rendezvoue, teak synchronization la 
produced by the reeponee of the celling teek to the 
entry call ateteaent, and by the response of the celled 
teak to the eccept eteteaent. Theee reeponaee ere ee 
followa: 

- When an executing teek encountera an 
entry cell ateteaent, e check le aide to 
determine if the celled teak le welting 
et e correepondlng accept a t a teaent--the t 
le, en eccept eteteaent cootalnlng the 
naae of the entry--ln which caae the 
rendezvous la effected. If the celled 
teek le not welting et e correepondlng 
eccept eteteaent, the execution of the 
celling teek la euepended until e 
rendezvoue can be effected. 

When an executing teak encountera en 
accept atateaent, a check le aede to 
deteralne if eny teek haa executed en 
entry cell atateaent naalng the entry 
eeeocleted with the eccept atateaent 
and la therefore awaiting rendezvoue. 
If there la a calling teak awaiting 
rendezvoue, then the rendezvoue le 
effected. If no celling teek le 

awaiting rendezvoue, then the execution 
of the teak le euepended until e 
rendezvoue can be effected. 

Thua, a rendezvoue occure under one of two conditions: 

A calling taak executea an entry call to 
a called teak thet le welting et e 
correepondlng accept etateaent. 

- A celled taak executee en eccept 
etateaent for which a celling teek la 
waiting at a correepondlng entry cell 
etateaent. 

The alaulteneoue arrival of the celling teak et en entry 
cell, and of the celled taak et e correepondlng accept 
atateaent, cen be viewed aa either ceae above. Such e 
eltuetlon cannot occur when the underlying hardware has 
a alngle proceeeor, of course, beceuse the perellel 
execution of the two teek la only apperent. Even In 
ault 1 proceeeor ayateae, auch simultaneity la very 
unlikely. The point la that the two teaka ere 
synchronized when the rendezvoue le effected. Thle 
synchronization la achieved by one of the teeka having 
lta execution auapeoded until the other le reedy for 
rendezvoue. 
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Basic OS-9 



Bon Volgta 

One of Che earliest coaundi, if not Che first, that 
you'll learn In OS-9 la BACKUP. One of the flrat thlnge 
your uaer'a ■•null telle you la to BACKUP you're ayatea 
dlek. If you buy a place of aoftwere. It will tall you to 
meke a backup. Hy flrat column In the Color Micro 
Journal eaphaelzed the laportance of making backupa. I 
think It only reaaonablc to devote a coluan to It. 

BACKUP la a rather Interesting and unique command. 
Not all systems have It (although aany do). To copy a 
dlak In another ayatea, you tight enter a line: 

COPY A:*.* B:*.* 
The "*" are wlldcarda that apeclfy all fllaa. The copy 
coaaand coplea from drive A to drive B everything. 
Eventually what la on drive A ends up on drive B. Many 
ayetens uee eoaethlng like thla, but thla la not an 
equivalent of BACKUP, alnca It la copying file by file. 

What differs the OS-9 coaaend, BACKUP, froa the 
wildcard copy routine la that It doeen't concern Itself 
with what le on the dlak. The directories, files and 
aodulea on the OS-9 dlak are totally Invisible to BACXUP. 
When It operates. It aakes a "bit image" oi the original 
dlak onto the target dlak. Sector by aector, byte by 
byte the the two dlak are identical. They ere alrror 
Images of eech other. 

The simplest wey to uee it, le to enter: 

0S9-.BACKUP 
Thle will ceuee e backup of /DO to /Dl . Thla la the 
dafeult condition. If you enter: 

0S9:6ACKUP /Dl 
It will ceuee e single drive backup on drive /Dl by 
prompting to lneert the eource dlek end destination dlak, 
alternating until the dlak la copied. Finally, you can 
tiy: 

0S9:BACKUP /DO /Dl 
and the dlak In drive /DO will be copied to /Dl. A nice 
feature about beckup le it gives 2 chencee to meke 
certain you are really going to do e backup. For the 
above command It would flrat aek: 

Reedy to BACKUP /DO to /Dl 1: 
This Is your first chsnee. If you really meant to backup 
/Dl to /DO or something elee enter a M. Otherwlee enter 
e 1 end It will continue: 

XYZ la being ecretched 

OK ?: 
XYZ le e dummy name 1 geve to the dlek during formatting. 
I Intended to backup another dlak to It. If an Important 
name hed cow up, lnateed of the XYZ, I would enter en M. 
Otherwlae, e T end the beckup will etert. Unlink copying 
fllee, BACKUP la Impeivloue to files* ettrlbutee. You may 
chenge e fllee' attributes to protect it from being 
eccldently erased, but when you BACKUP, soy thing on the 
the declination disk will be wiped out. So, you get 2 
chencee, before enythlng le ereeed. Another good reesoo 
for ssklog whether you went to BACKUP /DO to /Dl, It 
gives you time to put e source disk In drive /DO, should 
you want to backup a dlak that doesn't have e commands 
directory on It. Just remember when it Is all over to 
replace the disk In /DO with the commands directory. 

There ere e few things that you can do to affect 
BACXUP. There three command modifiers you can uae. They 
ere: 

e - exit on read error 

a - print single drive prompt 

•"V - do not verify 
The e ceuaea BACKUP to abort on any read encountered on 
the source dlak. if you don't uae It, the backup will 
proceed with the errore only being noted to the ecreen. 
The ■ print e single drive prompt. If you apeclfy only 
one drive In the BACKUP commend list, the single drive 
prompt will be eutoaatlcally be printed. So, entering: 



BACKUP /DO 



or 



BACKUP S /DO /DO 
will do the same thing. The -» will etop the verification 
routine on the destination dlak, which la usually done st 
the end of beckup. I recommend not uelng theee optlone, 
unleaa you have a good reeeon. For example, uae the -» 
to save soma time, Juet hope thet the destination dlek le 
ok. The other option le thet you cen adjuat the amount 
of memory ueed. Normally, *K of memory le dedlceted to 
BACKUP. If you went more you cen epeclfy the number of 
pegee or K bytes for It to uee. Entering : 

BACKUP I 2 OK 
will let It uee 20K of memory. You cen eleo uee: 

BACKUP (60 
to get the same result. Giving It more memory will speed 
up the process snd reduce the eaount of switching 
between drives. If you ere s single drive user, you'll 
eepeclelly went to give It more memory. if you don't 
you'll end up ewepplng dleke maybe 40 times or eo. Giving 
It ebout 40k will reduce the ewepplng to perhepe 4 or 5 
times. 



or 

There le one drawback, I have found, to BACKUP. 
Heny tlmea you'll want to backup a dlek, like the eyetea 
dlek. Then you'll customize It to fit your neede. When 
finished you've got s disk that no longer le like the 
perent. The dlek la now different, but the name le the 



To eolve the problem, I created DHC, which la ahort 
for dlak nam* Ctutome . To uee It you would enter: 

dnc <devlce name> 
The neme cen be eny maee storage device, euch ee, /d0 or 
/dl. If you forget how to uee It Juet enter doc without 
e device name end e little help llet will be printed. 

The program opene e path to your device. It goee 
to LSN 0, the Identlflcetlon Sector, end reede lte neme. 
The old neme le printed end e prompt for e new one. If 
you enter e name larger then 32 characters, It will 
prompt ageln for e new neme. Juet entering e carriage 
return will ceuee It to abort, lsevlng the old neme In 
teck. Two subprograms, I uaed, ere STOC end CTOS. 
Theee convert e eyetem etrlng to e C etrlng end e C 
etrlng to eyetem etrlng, respectively. The difference le, 
In eyetem strings, the laat character nee the 8th bit eet 
high. In C strings, ths snd Is marked by e null 
cherecter ($00). The other thing lo the program worth 
noting Is the uee of the C file errmo.u. It contalna the 
error codee ueed by eilt(). E_BPNAH le bad peth naae, 
E_READ la reed error, end E_UUTK la write error. 

If you uee BACKUP to make dleke thet you customlxs, 
then you'll went to uee e program like dac to change the 
neme to reflect the dleke Identity. Long efter the 
labels haa faded or the fallen off, the name will be there 
to remind you of its purpose. The name can be Import sot. 



That'a all for oow 
next time . 

/• DNC.C -- Dlek Neme Chenge */ 

/* Thle program will rename a dlak */ 
/•by Bon Volgta Auguet 198i •/ 

fdeflne UPDATE 3 
'Include <errno.h> 
'Include <atdlo.h> 
'Include <ctype.h> 



Have a good month. See you 
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lnt ergc; 
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lnt path, naacelze; 

char pnaae[30|; 

char oldntM I 33] , newnaae[80j; 

II (argc — I) 

helpO; 
/* aec up pathnaaa for open */ 
atrcpy(pnaae ,argy| I)); 
atrncet(pnaae, "9", I); 

/* open and read dd aeccor */ 

If ((path-open(pnaae, UPDATE)) — 

exlt(E BPRAM); 
la«ek(path, 111, o) ; 
If (readCpath. oldneae, 32) < 32) 

exit(E READ); 



-1) 



/* change old dlak na 
■toc(oldnaaa): 



to c format */ 



/« ahow old naae and get new one */ 
prlntfC'Old Naae:le\n", oldneae); 
n«ataalte«33; /* any nuaber larger than 32 */ 
while (naeMalie >32) 
( 

printf("New Naae:"); 

g«ta(newnaae) ; 

naaealze-etrlen(newnaae) ; 
\ 
If (atrlan(newnaae) -- 0) 

I 

print f ("Ho Change Hide I"); 

exlt(0); 
\ 

I* convert the new naae to eyetea foraat */ 
ctoe(newnaac) ; 



/• write changed naae back */ 

lacck(peth, 311, 0); 

If (wrlte(path, newness, 32) < 32) 

exlc(IJfiUTE); 
cloaa(path) ; 



i 



atoc(a) 
char *e; 
( 

lnt 1; 

1-0; 

while (laaacll(a(l))) 

i*+; 

all|-toaacll(a[l]); 
all+J )--\0- ; 

} 

ctoa(a) 
char *a; 
I 

lnt 1; 

1-0; 

while (all] !- '\0') 
1++; 

a(l-l]i-OxB0; 
I 

help() 
( 

prlntf ("Onaae Cdevlce naae>\n"); 

prlntf(" Old Naae will be displayed. \n") ; 

prlntf (" New Naae will be proapted.W) ; 

prlntf(" A <cr> will abort change. W); 

exlt(0); 



Using K-BASIC 



frank I.. Hut titan 

LU)Tl> I/O 
|*VI5 Ht tiltuan 

Portland, OR 97210 

UNA 

(*vl> *>6b-IU9> 

T*fUrj; 910 )b« *>■.*« LUOYl) t u 



eaaaitQa the use of 
know what R-HASIC (I, 



In this eplaadi* ul the flit Sllccr, w'll 

It -BASIC, for Choiu of yon Wlko don't knu* -*»•> 

K-SA&JC I* a ni(lv« cod* BASIC language coapller for FLEX and 

QS9 uyv-ttu u»ln» (1,? 640V ■■ ths host CPU. A. the author of 

R-fcAStC It waa (tit that I could •■plain things b«at. Don 

Willi*** hai asked a» to covtr parti of K-BASIC, aa apace and 

Claw p*rajlt«. over the cooling aontha. 

VklStON HISTORY 

Flrec of all 1 want to give • Hat of the virioui version that 
have been relesaed. Over a parlod of t law itevenl versions have 
b*«r) released «ik! to help ut«re Identify wlilch version they 
have add If they need to update thalr disks, I provide the 
following Hat. Thla Hot la a reconal rvict loft and aey not be 
totally accurate. 

Harch 1982 - awk beglae 

July 1983 - dvaonetreted prellalnary 

vrralon at MCC 83 

August 1964 - demonstrated prallalnary 

veralon at 0*g Mo ins a. 

Octuthtrt 1484 - rvleaiad flrit versions 

■ In^lc !>*•■, 0SM ssteobler 
■iu raodott files no PRINT 
USING cui.pl led mil 

pragma*. 



January l¥«i - double pae*. PK1NT USING 
raidoe. Ulets sell I 

coe.pl lee ttav.lt proKraaj 
•till uaea QSM asscaMtr. 

Hart J. l^tJi - R0 imtbUr replace* 0SK 

easeeb ler , apJCce n*M 

nl lt«ved In ••xpre** lona , 

coaipLlaa ouch larger 

prograaa, however fULX 

veralon hae bug in 

aaacBablar preventing object 
c«j4t: Liua etajL'ul Itig. *wtt't 
ewltlply 2*1 and other aide 
rftccta, 

March |ya> - fcu aaaeebler bug fixed. 

May l»Bi - Mew aneory »*neg*r added; 

reaulta In such taster 
atrlng handling and 

aailgitnent. 

Juno 1*85 - uatd to develops an 

Integrated account tug 

ayitvai lor usy level 2 here 
at LLOTl) 1/0, beginning 
work to add • Lngle and 
double precision binary 
Hath package*. 
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-July 



1985 



Auguat Ls«5 



■uU lple etataaent* per 
line bug f Ixed . Com pi lea 
■on Any X HA SIC progrja. 
vera ton nua.be r 1 . 1 :00 

nlalgned and printed on the 
aerial number atickers , 



1 very etroitgly euggeat that X-HAS1C uaara with verelone oldar 
than July B L9S5 aend In your dteka tor update. if 60 daya has 
paeaed elnce purchase thvn you need to Include the $35 
payment, aa noted In the manual. 

RETUKtflNC TO THt PUTTJKt 

Coating Soon is a bln»ry math package fur K-BASIC, Thla entella e 
very large lnventment Ln development. However, for the benefit 
derived by a binary math eelectlon (epeeda up execution 6-10 
tlmca) the aaall extra expenee should pose no problea to thoae 
hevlng nead for such routlnee. 

The charge for the up cuaalng binary aath package will be SSu. 
Tha price fur K-BASIC with the binary eath package will be SM9, 
By the way, the package la being contracted I roa Kon Anderaon, 
ami the price lncreaaa ellowe ue to cuapeneete Kon for hid 
fine work. Thla new varalon of K-BASIC will then Include three 
typee of real nuabere, however, nnly one aay be uaed In a 
complied prugrea, Theae ate: 



Current Type 
BCD - 



deidulte to I) dlglte, but 
nriy be «vl In tuy IcJiglh 
between 1 and S9 digit*. 
Keep in ail rid that the 
longur the autnt i«ae the 
lunger 11 lakee to preform 
c* Leu la t lone. » Uh,e( ul In 

accounting appllcatlona . 



New Binary 

siw;u - 



ubt/.it 9 Jlrflta of preclnlen 
but very [jit celculat lone , 
Uaelul ln «a.>y aclentlflc 
«PI>1 lent lone . 

- And - 
00UBLL - abuut 17 dlglte or 

precision, etlll very faet. 
Uat-l ul in aclentlllc end 
accounting appllcatlona, 

but may have round oft 
errura that attect 

accounting application*. 

HAD BEES 

Some uaera heve written, phoned* telexed, or by other Mini 
Comawa lcaled that ftoaw "features" Ol K-BASIC am undocuaenttd . 
Aa theae "auggwet lorn" cuw In 1 have aide nutea and added new 
aectlona* notea, and mod If lcatlona to the aanual. Ay the tlae 
you read thla article, a new "dalaywhee 1" printed, double 

aided aanual will be available , You may re que a i a new 

aanual with any update done to your dlaka or a new manual can be 
purcheeed for 15 dollara. In the future aoru addition* and 
notee will be added and a later veralon of the aanual can 
be purchased. 



One probiea that 
eaeeably paaa (Ko). 



aeea* to be- ^ 
When an orror la 



myater/ la during the 
reported >urh ami 



Error: UDS 



Ibre KNDlK.n 



It meana that the Kabul "tHW.'lV' la undefined (UftS ■ 

UnUef lnedsyabut). What Uam happened i» the cuajitler (ka) haa 

(slleJ to generate the label. Thla Is because you have ude a 
progr-maing ayntAX error; a mlaalng fcSDlr - etattment; 



One veralon of the compiler that waa releaaed to only a few 
ueere had loat the ability to proceaa aore than one atateaant 
per line. Thla error could alao cute the above typaa of 
• rron. Uaera with thle bug should aend In their dlaka for a 
regular update. The bug resulted fro* the repair of enother 
bug, but was Quickly caught , and exterminated. At laat 
report there haa been no relnfeatatlon of any crlttere into 
K-BASIC. 

XBASIC — > K-BASIC 

The aanual haa a aectlon on translating BASIC programs written 
for the TSC veralona of BASIC known aa BASIC, XUASIC, and 
XPC. K-BASIC will generally compile all of theee prograaa, but 
the same raiulta nay not be obtained. There are eeverel raaeona 
for that. 

flrat, K-BASIC handles expraealona differently. There la no 
type precedence in K-aASlC. All expreea Lone have a type 
aanlgned to thaa. The type oay have a default or expected 
type, but If not. Ita type becoaea that of tha flrat operand la 
the eapreeelon. The remaining operende have to be converted to 
that type If they ere different before any operations are dona. 
For exeaple: 



BYTE' 

I 

I 



WORD! + BYTE2* 
I I 

I ♦- aaae type aa Mrel 

t converted to BYTK type 

' — ' — ■ sets the expreaalon 

type to byte aiz« 
Integer 



Thla expreaalon raturna a answer •■ BYTE alze* If XbAStC* were 
capebla of the BYTE type, It would have converted the two 
BYTE alzed Integers to WOW) size and then have done the 
calculstlon. If the reault were larger than what a BYTE alzed 
variable waa able to hold a WORD alzed variable wuuld have to 
be ussd. Thla bealc difference between XBASIC and K-8ASLC. 
1 have found that thla doeen't ceuee a probiea ln writing 
new programs, but there are soae Lnetancea where 

convert log apeclal appllcatlona to K-BASIC aay nut work a a 
expected. One uaer sent along a quick prograa to generate 

bannera. It waa one of the atrangeet written prograaa I have 
ever aeen. It eeeaed to conelat aoatly ot CUTu'a. 1 never 

did figure out how It worked, but one of the tdeaa used waa 
ualnfi real numbers In PRINT TAB( ) atatcaente. Tha currant 
veralon of K-BASIC wl 11 not autoaat lea 1 ly convert REAL type 
uperande to any of the Integer typea. 

QUICK DRAW KcCAW 

K-BASLC la euppllad with aeveral eaasple prograaa. One of 

thea IS a prise number generation progrea. 1 have teated 
thla prograa both on XBASlC and K-BASIC. On ay 2.25 HHl GIH1X 
111 ayatea the reaulta were: 

XUAS1C IS atieonda 
K-BASIC 7 iieconda 

Thla wes for finding all prlaaa between I and 10U0. The prograa 
ran in about y or 10 eecooda under 0S9 with no other uaara on 
tha ayatea. Tha difference aaeaa to be In the overhead OS9 
experlancea in aultl-teeklng. 

COMPILE TIME 

K-BASIC la auppkled with the coaplate run-tlae package ln aource 
code fora, although uncooaented. There are about 15,000 llnea 
alnlaua to proceaa each tlae a coaplle la Initiated. The 
run-tlaa eaeeably code source files have had all coaaenta and 
extra epacua reaoved to enhance the epeed of aaaeably by reducing 
chf dl#k 1/0 i.e. -Jed to raad theae fllea. Even with that there 
La j lot ot disk 1/0 going on. I have a hard dlek on ay ayatea, 
wnlch tmipj e lot In getting through a coaplle. I racoaaend that 
uaara employ tha (at* teat etep rate on floppy drlvea. 



ENDWKILfc > 



If hle-1 

print hello 

Wlille cuuntcrl<9 
print counter!; 

counterl-counterl *2 

Loop 

Print 'Thla la the End. 



K-BASlC'a compiler make* no report of such mlaalng 
keyword* In thaae type a of a cruet urea , iq the error la peaaed 
down to the assembler where It la reported. 



Tha following program takee about 5 
ayatem: 



alnutea to coaplla 



PRINT 
Ml HT 
PRINT 



'HK1.L0, WURLf}" 



It has been reported to take 1) minutes on 5.25 Inch floppy 
diek eyatems. Tha question la; doew It take 500 minutes for a 
100 line program? The answer la NO, On ay system s 10Q0 l" 
s program of more than about 5M-frtO lines, ahould be a maximum. 
Tha 1000 la mentioned aa an example, aitd nut recommended ■■) 
Una program takei about 20 mlnutea to coaplla,,. which would 
tranal4te to about an hour on a floppy dlek eyatea. 
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Thle appears Co b« estreaely alow, but It you conalder JueC 
vhel la happening lc len'l ao bad. K-8ASIC la NUT an 
lotarpraccr. Cat yovr program running In BASIC flrat. Den't ua« 
It Ilka oni. Tha beet way to work with It la to btf vary 
oethodlcel about coding up your applications. A lot or trial 
and error will conaitae aany hours of your tlae. 11 you ire 
ualng H-aASlC under FLEX, lake advantage of the availability tha 
TSC XMASIC intarprctar end try out your algorithms. 

0S9 ueere have a problea. XBASIC won't run under 0S9. for 
level two uitrs 1 aa developing a veralon ol the run-tine 
package that la already aaaeabled etid la created aa a bg09 
eubroutlne memory annul" with H tdbla ut vectors tor the 1)0 
or ao tubroutlnea. Thle should epeed up dcvclopaent and reduce 
tha aaount of aeaory uaed by eeveral different coaplled 
prugraaa. Thare la tK> iiuhii In having l.wu tuples ul the Sls() 
fuoctlooa... ate. Alio only one copy of the run-dae package 
will ba In aeaory. 

AUTOMATION 

1 have a theory. It I aucoaate aoat of the operations hera at 
LLOYD 1/0, tin* will ba aaved that can be uaed la software 
devalopaant. Well, It la taking tlaa to lapleaent the 
ayatea. gut, progreaa la being aadc. l's ualng K-BASIC to 
developa an accounting-invoice ayctea. One of the benefits la 
faatar order proceaalng. 1 have three prlntcra act up tor the 
varloue foraa. Ao Okldata B2A prlnta the 7 loch Invoiced, an 
gpaon NJC-flO prlota tha Balling label, and another gpeon HX-80 
prlnta the aerial nuaber atlckera. The aerial nuabar eilckere 
have eight lcaas of Intareat: 

1. Prograa nasa with trademark notice 

2. Veroido nuabar 

3. Disk Operating Syatea, snd size 

4. Data of Banufacturc 

5. Serial nuaber 

6. Product nuaber 

7. Cuatoaer account nuaber 
6. Invoice nuaber 

Hy ayatea Is sat up to allow ae to croaa reference the aerial 
nuabera and invoice nuabera to the cuatoaer account 
nuabar. This allows ae to process updates really aa long aa the 
atlcker la available. 

Serial nuaber atlckera arc placed In the aanuel, on the dlvka. 
and on tha cuatoaer support registration lora. '• SEK NOTg 
BfcLOV; (It la our pcjltcy to process updates unly Li the 
regletratlon fora la In our files,) Thv current lora la In the 
foraat of a aurvey. I'll ba evaluating theaa aa aoon aa I 
have enough to Bake an accurece poll feasible. On the back of 
this survey la an aree for euaaente. 1 always read thaee 
coaaenta, looking for suggestions and bug reports. In the 

future I'll ba cooaentlng on theaa auggeatlone. 

NOTK: For thoaa cuatoaara of S. £. MEDIA (CP1) and their 
dealers, this data la aalntalned by S.S. MEDIA at 
their Hlseon, Tenneaecc offlcce. 



Josef Salbaba 

Microcomputer Solutions rose* 



a mi 

autom j txean 



Si stii *•» 



South Eait Kadi a 
Mr. Chris Kocher 
5900 Cassandra Sal th Rd. 

Hi Kaon, TN 37343, USA 



r. Kocher t 



Austria, 22-Aug-19BS 



Thank you for tending back tha updated floppies with Kaesic. 

u> art glad to t»H you, that this version works fine, ss fsr as 

we were sole to test coael I atlone. 

At about tha Saae date we received a letter froa Frank Hoffaan 

offering to eachange diskettes for update. 

While you ellready did tha update, we are still alssing an update 

of the aanual. F.H. aentioned there exists new aanual) he did not 

sendi nor proalte to send it. 

Ue consider the delivery of tha aanual la supposed to be part of 

the original delivery end herewith we like to request tt froa your 

caapsny. 



General ly, kbsaic seeas to ba In good *hape< only we have soae 
coaplaints concerning coaptation t I ae efforts* Kbasic needs 
about 20 atnutes to work out a 25-1 lne basic prograa. Allsost 
Of the tlae seeas to ba used up in the aaaeably with "Ko". 
lee ere using a F-T-S.9 llMrtl fc90<l cycle* with 2 disk drives. 
Maybe we ere doing something wrong > F.H. will probably Have lo 
spend soae work on this fact. 

We ere very Interested to follow the future development of this 
product snd will sign on with the update lee as soon as we have 
gained soae aore experience ejtd Che delivery were coapleted with 
the aenuat . 



Editor's Note; Josef, by Che time you read this your 
aanual update should have arrived by alr-aall. There 
were several updates, changes, aodlf les t lo ns snd 
Improvements over the first 6 months of this year, to K- 
BASIC. However, It nowa haa stabilized and aeema to be 
ahead of most other software In 'clean-up' tlae. 

You cannot Imagine Che effort that was expended to 
make K-BASIC a reaaonably "bug free" product In such a 
short period of tlae. Your kind rcaaria aa to It's 
preaent state of efficiency Is appreciated by those 
engaged in the project, 

Aa to the tlae It takes to compile. First, actually 
It takes very little time to compile. For s 50 line 
XBASIC prograa the tlae to coaplle waa leaa than one 
ainute on a 2 Hhz 6809 FLEX ayatea. The aaaeably tlae 
waa longer, 7.35 minutes. The total tlae froa start to a 
. CUD object file waa 8.25 minutes. The resulting object 
code used sbout 23 FLEX sectors. The resulting code is 
fairly efficient. But even 23 totsl sectors Is fsr leaa 
RAM apace required than having both XBASIC and the 
source In neaory for no rraal operation. Considering that 
XBASIC Itself uses 79 sectors, plus your source code. 
Much better s 23 sector object program - much faster snd 
uses fsr less RAH. Actuslly the difference csn be "go or 
«*> go!" 

For s 100 line program, using the same type variables, 
the totsl time was only sbout 3 minutes total ttms 
longer, or 11.14 minutes from start to .CND object code. 
The tlae la conauaed aoatly In the aaaeably process. K- 
BASIC Is s "virtual meaoiy type" of compiler. Thst is It 
uses disk space rather than available RAM apace (RAH is 
very Halted). Therefore, you can coaplle object files 
restricted only by disk space. Quite a better deal than 
ccrapllera that run out of available aeaory. 

The trade off Is time, which Is not too Important If 
you hsve done your code right (get no errors snd the 
progrsa does whst it wss designed to do) snd the size of 
your source file. For FLEX users aoat of the code csn be 
pre-checked in the TSC XBASIC mode, then compiled. For 
0S9 users It is soaewhst more demanding, sa there ia no 
BASIC similar to XBASIC running under 0S9 at the preaent. 
We are working on one and will snnounce It st soon ss we 
get It market ready, (flngera crossed!) 

The other fsctors thst sffect coaplle snd asseably 
tlae Is the type of disk 1/0 (DMA or serlsl 1/0), the 
actual type of dlak and lt'a acceas and read/write 
apeeda. Trie dlak foraat (interleaving, etc.). Syatea 
clock speeds, wait states, etc. And of courae the disk 
operating system. All these fsctors lesve s wide swsth 
of vslue differences. Hence It is difficult to pin down 
exact complle/aaaaable tlosa. For some It Is much better 
than for others. But for all. It is certslnly much more 
efficient than BASIC+source . AJTO UBKU CM TOO GIT 100, 
TBS, 100 DIGITS OF PISasIOMT 

I would be Interested in knowing how aany of you 
readers would buy a UnlFLEX veralon of K-BASIC, to coaplle 
UnlFLEX BASIC? We are looking at It quite aerloualy, but 
need aoae sort of Input. Also what about a 68XXX 
veralon? PLEASE drop ae a line and let me knowl! 

Also please refer to the "Using K-BASIC", this Issue, 
by Frsnk Hoffman, the author and Inventor of K-BASIC. 

DHW 



24 



December '85 



'66° Micro Journal 



MICROBOX II 



William A Broooker 
36 Ylngally drive 
Arana HiXU 
BRISBANE 4054 
QUEENSLAND 
AUSTRALIA 

I would like share ay experiences on Che successful 
construction of a single board computer running the FLEX 
operating ayatem. 

I have been using a 6809 computer at work. It's used as 
a development system to write and debug programs to 
download to single board controllers. It has performed 
well and I have enjoyed using the FLEX operating system. 

1 decided I would Like a FLEX baaed system at hone to do 
■ one study on high level languages such as PL9 etc. 
Because of the coat I decided agalnat a SS50 baaed system 
at home. 

I started looking at the advertisements for single board 
computer kits. This would be something I could build up 
gradually and not break the bank. 

After looking In various magazines I found a single board 
FLEX ayatem which I considered to be the beat value for 
money and having the moat Innovative features. This was 
the ** HtCKOBOX II from H1CR0 CONCEPTS 8 Skllltcorne Hews, 
queena toad, Cheltenham, GL5Q 2NJ, UK. 

The MICROBOX II la baaed on a MC6809E microprocessor 
running at 2Mhi, It la equipped with 64K of ram plus 
another 1 28 K of ram which can be aaalgned as graphics 
menory or as a ram disk. It supports two 5.25 0§D0 40 or 
80 track disk drives, an eprom disk of 64K as well aa the 
previously mentioned ram disk. 

The eprom disk is a email daughter board with (our 
27128*s mounted on It . The utilities disk provided the 
software to burn the eprom' s on board. 

The l/o comprises two RS-232 porta, a Centronics printer 
port and an expansion buss, it has a battery backed up 
real time clock and also has great graphics potential 
which MICRO CONCEPTS demonstrate on the utilities disk. 
The MICROBOX II uses the NEC7220 graphics chip for the 
video generation. There la provision for three modes of 
displayed text (I) 108*24 chars. (2) 128*72 chars. O) 
84*24 chare. (The 128*72 mode needs a good monitor to do 
It Justice.) 

I decided to get the startup kit comprising a double 
sided p.c board 12" * 9.5", an eprom board, a monitor rom 
and a utlLltlee disk. 

1 posted away my overseas bank draft and hoped for the 
beat. In just twelve days 1 received a note from our 
Customs Dept. Indicating that they were holding a parcel 
for me. After sorting out the red tape and paying the 
duty (21) and sales tax (20X) I was allowed to take the 
kit hone. 

The kit was complete and Included a stack of 
documentation and conatructlon notee Including an English 
supplier Hat for all the parts needed to complete the 
computer , 



Now came the interesting part of tracking down the 
suppliers of the parts in Australia. (Rather than base 
their design on a particular family of Integrated 
circuits, MICROCEPTS aeem to have selected chips to give 
the meat efficient solution to the function required.) 
After many phone calla 1 located all of the parts needed, 
at the time (early 1985) the NSC7Z20 and WDI770 diak 
controller chip were only juat being imported into 
Australia. 

I Installed all of the lc'a Into sockets and fitted all 
the connectors, etc. 1 had prevloualy decided to mount 
the board In an Apple lookallke case. I cut the rear 
section out of the case aod fitted an aluminum panel Into 
which I fitted ail the l/o connectors. I also made the 
eprom disk accessible through this panel. An Apple type 
power supply was used to power the computer. 

To teat the computer I adapted the Apple keyboard 
connector to suit the MICROBOX II. The next major 
expense was a pair of 40 track DSDD diak drives which 1 
mounted Into a separate caae with a power supply. 

After much checking I applied power and waa pleasantly 
surprised to see the MON09 prompt. 1 borrowed a FLEX 
diak from work and tried to boot up FLEX. Up came the 
+++ (magic), full of confidence I tried CAT, up caae a 

catalog of the diak. How about EDIT' — nothing, the 

cursor disappeared. 

Off went a letter to the U.K., back In twelve days waa a 
letter auggeating I should be using TSC FLEX and not 
SUTFc FLEX. After obtaining TSC FLEX all waa well, 
everything worked perfectly Including programs like PL9 
and atylograph, well alaoat, have you tried to find curly 
brackets on an Apple keyboard. 

I replaced the Apple keyboard with a real full ASCII 
keyboard which completed the conatructlon of the 
computer. The construction of the kit was a great 
learning process snd I was pleased with the support 
provided by MICRO CONCEPTS In promptly snawerlng all of ay 
questions . 

I believe that the single board computer kits offer 
eothualaata with an economical entry Into computera baaed 
on the FLEX operating ayatem aa well as giving the 
conatructor more aatlafactlon and experience than they 
would receive by buying a ready made computer. 

Hopefully their availability will increase the numbera of 
FLEX users snd give the software writers more Incentive 
to write programs for the 6809. 



** Note: a more recent and current address Is: 

MICRO CONCEPTS 

2 St. Stephens Road 

Cbeltenhaui, Glonchestershlre 

CL51 5AA &NGLAHD 

Tele: (0242) 510525 
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ISAM 



"ISAM" 

INDEXED SEQUENTIAL ACCESS METHOD 

A File Implementation 

for 

FLEW Operating Syateae 



a * 

> ISAM DELETE ROUTINE ( 

1 * 

lllllliilllll>l<llt>llll>>>>llllllllllllllllllllllll 



By: Joseph D. Condon 8101 Alpine Drive Dee Kolnee, Iowa 
50322 515 278-4581 



Continued from p«35 of last month. 
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« ISAM ADO ROUTINE « 

a * 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 



DELETE 



DELI 



ADD 



ADD I 



ADD2 



ADDS 



ADD4 



TST 

LBEO 

TST 

LBNE 

LDO 

CMPO 

LBHS 

LBSR 
LDO 
STO 
LEAX 

TST 

BNE 

LOO 

SUBO 

STD 

BNE 

LBRA 

LDO 
ADOO 
LBSR 
LBNE 

LBSR 

LBNE 

LOO 

AOOO 

STO 

LOD 

AOOO 

STO 

SUBO 

LSLB 

ROLA 

LEAX 

STX 

AOOO 

TFR 

LOO 

STD 
LOO 
SUBO 
STD 

LDO 

BED 

SUBO 

STO 

LOO 

STD 



LDO 

STO 

LBSR 

LBNE 

LOO 

RTS 



OFLAG.U TEST OPEN FLAG 

ERR 133 FILE NOT OPEN 

CFlAG.U TEST CORRUPT FLAG 

ERR 139 CORRUPT FILE 

AFSIZE.U GET ACTUAL FILE SIZE 

MFSIZE.U COMPARE TO MAX SIZE 

ERRI8B FILE FULL 

MOWB1 MOVE VARIABLE TO BUFFER I 

RECSIZ.U GET RECORD SIZE 

-Z,S STORE CHAR COIWT 
BUFFER, PCR POINT TO BUFFER 

e,X» TEST BUFFER CHAR 

ADD2 NOT NULL RECORD 

-2,S GET CHAR COUNT 

Nl DECREMENT CHAR COUNT 

-2,S STORE CHAR COUNT 

ADD) TEST NEXT BUFFER CHAR 

ERR] 73 NULL RECORD 

AFSIZE.U GET ACTUAL FILE SIZE 

HI GET RELATIVE RECORO NUMBER 

WRREC WRITE RELATIVE RECORD 

EXIT EXIT WITH ERROR 



0EL2 



FIND 

EXIT 

CURREC.U 

Nl 

CURREC.U 

AFSIZE.U 
N] 

AFSIZE.U 
Nl 



KEYTAB.U 
-2.S 

-z.s 

o.x 

e.x 



find last record < key 

ex It with error 

get current record number 

bump record number 

set new current record no 

get actual file size 
bump actual file size 
store actual file size 
decrement record number 
multiply record no by 2 

get key table location 
store key table location 
ado location to o reg 
move d reg to x red 
get physical record number 



0EL3 



DEL4 



TST 


OFLAO.U 


LBEO 


ERR 133 




TST 


CFLAG.U 


LBNE 


ERR 130 




LOD 


CURREC , 


U 


LBEO 


ERRI63 




CMPO 


AFSIZE, 


u 


LBHI 


ERRI7B 




LOO 


RECSIZ, 


U 


LEAY 


BUFFER, 


PC 


CLR 


e,Y» 




SUBO 


Nl 




BNE 


DELI 




LOO 


CURREC , 


u 


LBSR 


WRREC 




LBNE 


EXIT 




LOO 


CURREC, 


,u 


SUBD 


Nl 




LSLB 






ROLA 






LEAX 


KEYTAB 


,u 


STX 


-2,S 




AOOO 


-2.S 




TFR 


O.x 




LOO 


e.x 




STO 


-2.S 




LDD 


AFSIZE, 


u 


SUBO 


CURREC 


,u 


STO 


-4.S 




LOO 


-4.S 




BEO 


0EL3 




SUBO 


Nl 




STO 


-«.s 




LOO 


2.X 




STO 


e,x«* 




BRA 


DEL2 




LOD 


-2,S 




STO 


B.X 




LOO 


AFSIZE 


.u 


SUBO 


Nl 




STO 


AFSIZE 


,u 


CMPO 


CURREC 


.u 


BHS 


DEL4 




ADOO 


Nl 




STO 


CURREC 


■ u 


LBSR 


SETUP 




LBNE 


EXIT 




LOO 


NB 




RTS 







TEST OPEN FLAG 

FILE NOT OPEN 

TEST CORRUPT FLAG 

CORRUPT FILE 

GET CURRENT RECORD NUMBER 

START OF FILE 

COMPARE TO ACTUAL SIZE 

END OF FILE 

GET RECORD SIZE 



CLEAR RECORD CHARACTER 
DECREMENT RECORD SIZE COUNT 
CLEAR NEXT CHARACTER 

OET CURRENT RECORD NUMBER 
WRITE RELATIVE RECORD 
EXIT WITH ERROR 

GET CURRENT RECORD NUMBER 
DECREMENT RECORD NUMBER 
MULTIPLY RECORD NO BY 2 

OCT KEY TABLE LOCATION 
STORE BUFFER LOCATION 
ADO LOCATION TO REG 

MOVE D REG TO X REG 

GET PHYSICAL RECORD NUMBER 

SAVE PHYSICAL RECORD NO 

GET ACTUAL FILE SIZE 

SUBT CT CURRENT RECORO NO 

STORE DIFFERENCE 

GET DIFFERENCE 

ENO RECORD INSERT 

DECREMENT DIFFERENCE 

STORE DIFFERENCE 

GET RECORD POINTER 

MOVE PNTR TO NEXT LOCATION 

MOVE TO NEXT LOCATION 

GET NEW RECORD POINTER 
INSERT NEW POINTER 
GET ACTUAL FILE SIZE 
DECREMENT ACTUAL FILE SIZE 
STORE ACTUAL FILE SIZE 
COMPARE TO CURRENT RECORD 
FINISH DELETE 
ADO I TO ACTUAL FILE SIZE 
SET NEW CURRNJNT RECORD NO 



-2.S SAVE PHYSICAL RECORD NO 

AFSIZE.U GET ACTUAL FILE SIZE 

CURREC.U CALCULATE DIFFERENCE 

-4.S STORE DIFFERENCE 

-4.S GET DIFFERENCE 

ADD4 END RECORD INSERT 

Nl DECREMENT DIFFERENCE 

-4.S STORE DIFFERENCE 

B.--X GET RECORD POINTER 

2.X MOVE PNTR TO NEXT LOCATION 

ADDS MOVE TO NEXT LOCATION 

-2.S GET NEW RECORD POINTER 

B.X INSERT NEW POINTER 

SETUF SET UPftATE FLAG 

exit exit with error 

nb get status cooe 

RETURN 



SET UPDATE FLAG 
EXIT WITH ERROR 
GET STATUS COOE 
RETURN 



*a«a«a«««aa*«a«*«a«««a«*«««»*a««i<ii>«iiiii«iiii>iiii 
x » 

* ISAM REORGANIZE ROUTINE I 

1 t 

IllllllllllllllllllllltlllllllllllllljiIIIIIIIIIIIIII 



REORG TST OFLAG.U TEST OPDJ FlAG 

LBEO ERRI55 FILE NOT OPEN 

LOO NB CLCAR D REGISTER 

STO AFSIZE.U SET ACTUAL FILE SIZE « 

STO RECCNT.PCR SET RECORD COUNTER 

LEAY KEYTAB.U POINT TO KEY TABLE 

REORGI STO B,Y»» STORE KEY VALUE 

AOOO N I BUMP KEY VALUE 

CMPO MFSIZE.U COMPARE TO MAX FILE SIZE 

BNE REORGI STORE NEXT KEY VALUE 

REORG2 LOO RECCNT.PCR GET RECORD COUNTER 

CMPO MFSIZE.U COMPARE TO MAX FILE SIZE 

BNE RE0RG3 INbERT NEXT KEY 

CLR CFLAG.U CLEAR CORRUPT FLAG 
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RE0RG3 



RE0RG4 



RE0RO5 



RE0RG6 



RE0R07 



REORGB 



RE0RB9 



LDD 

STD 

LBSR 

LBNE 

LOO 

RTS 

ADDD 

STO 

LOO 

AODD 

LBSR 

LBNE 

LEAX 

TFR 

AOOD 

TFR 

LOO 

STD 

CLR 

LDA 
STA 
ORA 
STA 
LOO 

sueo 

STO 

BNE 

TST 

BNE 

LDD 

LSLB 

ROLA 

LEAX 

STX 

ADDD 

TFR 

LOO 

STD 

LOD 

sueo 

SUBO 
STO 

LDD 

BEO 

SUBO 

STO 

LDD 

STO 

BRA 

LDD 
STD 
LBRA 

LBSR 

LBNE 

LOD 

AODD 

STO 

LDD 

ADOO 

STD 

SUBO 

LSLB 

ROLA 

LEAX 

STX 

ADDD 

TFR 

LOO 

STD 

LOO 

SUBD 

STD 

LDD 

BEO 

SUBD 

STO 

LOD 

STO 

BRA 

LDD 
STO 
LBRA 



He POINT TO START OF FILE 

CURREC.U SET CURRENT RECORD NUMBER 

SETUF SET UPOATE FLAG 

EXIT EXIT WITH ERROR 

MB GET STATUS CODE 
RETURN 

#1 BUMP RECORD COUNTER 
RECCNT.PCR STORE RECORD COUNTER 

AFSIZE.U GET ACTUAL FILE SIZE 

Ml BUMP RELATIVE RECORD NO 

RRREC READ RELATIVE RECORD 

EXIT EXIT WITH ERROR 
BUFFER, PCR POINT TO RECORD SUFFER I 

X.O MOVE X REG TO D REO 
[NPAR2.PCR ADD MAX RECORD SIZE 

D,Y POINT TO RECORD BUFFER 2 
RECSI7.U GET MAX RECORD SIZE 

-2,S STORE TEMPORARY 

-3,S CLEAR TEMPORARY 

B.r. GET RECORD 2 CHAR 

B.X* STORE RECORD I CHAR 

-3,S OR CHAR WITH TEMPORARY 

-3.S STORE TEMPORARY 

-2,S GET CHAR COUNT 

Ml DECREMENT CHAR COUNT 

-2,S STORE CHAR COUNT 

REORG4 MOVE NEXT BUFFER CHAR 

-3,S TEST TEMPORARY 

REORG7 INSERT RECORD POINTER 

AFSIZE.U GET ACTUAL FILE SIZE 
MULTIPLY BY TWO 

KEYTAB.U POINT TO KEY TABLE 

-2,S STORE TEMPORARY 

-2,S ADD KEY TABLE LOCATION 

O.X HOVE REG TO X REG 

S.X GET CURENT RECORD POINTER 

-2,S STORE TEMPORARY 

MFSIZE.U GET max FILE SIZE 

AFSIZE.U SUBTRACT ACTUAL FILE SUE 

Ml AOJUST DIFFERENCE 

-4.S STORE TEMPORARY 

-4.S GET OlFh&RCNCE 

RE0R6A END POINTER SHIFT 

Ml DECREMENT DIFFERENCE 

-4,S STORE TEMPORARY 

2,X GET RECORD POINTER 

e,X»» SHIFT POINTER DOWN 

REORG5 SHIFT NEXT POINTER 

-2,8 GET OLD CURRENT POINTER 

9,X STORE IN KEY TABLE 

REORG2 INSERT NEXT RECORD 

FIND FIND KEY RECORD 

EXIT EXIT WITH ERROR 

CURREC.U GET CURRENT RECORD NUMBER 

Ml BUMP CURRENT RECORD NUMBER 

CURREC.U STORE CURRENT RECORD NO 

AFSIZE.U GET ACTUAL FILE SIZE 

Ml BUMP ACTUAL FILE SIZE 

AFSIZE.U STORE ACTUAL FILE SIZE 

Ml DECREMENT ACTUAL FILE SIZE 



QETFIO 



MULTIPLY BY TWO 

KEYTAB.U POINT TO KEYY TABLE 

-2.S STORE TEMPORARY 

-2.S ADO KEY TABLE LOCATION 

D.X MOVE D REG TO X REG 

8.x GET CURRENT RECORD POINTER 

-2.S STORE TEMPORARY 

AFSIZE.U GET ACTUAL FILE SIZE 

CURREC.U SUBTRACT CURRENT RECORD NO 

-4,S STORE TEMPORARY 

-4.S GET POINTER COUNT 

RE0RG9 END POINTER MOVE 

Ml DECREMENT POINTER COUNT 

-4.S STORE POINTER COUNT 

S,— X GET RECORD POINTER 

2.X STORE RECORD POINTER 

REORGB MOVE NEXT POINTER 

-2.S GET CURRENT RECORD POINTER 

»,X STORE IN KEY TABLE 

RE0RG2 INSERT NEXT RECORD POINTER 



GFI 



GF2 



GF3 



GF4 



1 GET FILE SPECIFICATION SUBROUTINE 
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GF3 



OF 4 



GF7 



GFB 



LEAX 

LOY 

LEAY 

LDD 

LOY 

TSTA 

LBNE 

LEAX 

LDA 

STA 

LDA 

CLR 

OECA 

BNE 

LDA 

STA 

LDA 

STA 

LDA 

BTA 

LEAX 

LEAX 

LDA 

STA 

TSTB 

LBEO 

DECB 

LDA 

CMPA 

BEQ 

CMPA 

BHI 

CMPA 

LBLO 

SUGA 

STA 

TSTB 

LBEO 

LOA 

CMPA 

LBNE 

OECB 

LBEO 

LDA 

OECB 

LEAX 

CMPA 
LBLO 
CMPA 
LBHI 

STA 

TSTB 

LBEO 

DEC 

BEO 

LOA 

DECB 

CMPA 

BEO 

CMPA 

BEO 

CMPA 

BEO 

CMPA 

LBLO 

CMPA 

BLE 

CMPA 

LBLO 

CMPA 

LBHI 



LOA 
DECB 
CMPA 
LBNE 

TSTB 

LBEO 

TBT 

BEO 

LEAX 

DEC 

BNE 

CLR 
CLR 
CLR 



IFCB.U POINT TO ISAM FCB 
C1FPNT.PCR POINT TO CALLER FCB 
B.Y POINT CALLER FILE SPEC 
2.Y GET FILE SPEC LENGTH 
•,Y POINT TO FILE SPEC 



LOC 



ERRIIB 

3.X 
MDRVNO 

e,x« 

MS 
B.X« 

GFI 
M'l 

a ,x- 

M'S 

B.X4 

M'A 

B,X« 

IFCB.U 

3.X 

MB 

COUNT, PCR 

ERR] IB 

B,Y» 

MSPACE 

GF2 

M'S 

GF3 

M'B 

ERR 1 IB 

MS3B 

B.X 

ERR] IB 
B.Y* 
M'. 
ERRIIB 

ERR] IB 
«,Y. 



I.X 

M'A 

ERRIIB 
HZ 
ERRI IB 

B,X« 

OF II 

COUNT , PCR 

GF3 

»,Y» 

M' . 

OF 4 

■ '- 

OF 4 

H'_ 

GF4 

H'B 

ERRIIB 

• '? 

GF4 

M'A 

ERRI IB 

H'Z 

ERRIIB 

OF 4 

B,Y» 

H - . 
ERRIIB 



TEST FOR LENGTH < 236 
INVALID FILE SPEC 
POINT TO FCB DRIVE FIELD 
OCT WORKING DRIVE NUMBER 
SET FCB DRIVE DEFAULT 
GET NAME FIELO LENGTH 
CLEAR NAME AND EXTENSION 
DECRettONT CHAR COUNT 
CLEAR NEXT CHAR 
GET ISA CHARACTER 
STORE EXTENSION CHAR 
GET ISA CHARACTER 
STORE EXTENSION CHAR 
GET ISA CHARACTER 
STORE EXTENSION CHAR 
POINT TO ISAM FCB 
POINT TO DRIVE NO FIELD 
GET NAME FIELD LENGTH 
SET CHAR COUNT 

CHECK FOR END OF STRING 
INVALID FILE SPEC 
DECREMENT STRING LEN COUNT 
GET STRING CHARACTER 
TEST FOR LEADING SPACES 
GET NEXT STRING CHAR 
CHECK FOR DRIVE NO 
OCT FILE NAME 
CHECK FOR VALID DRIVE NO 
INVALID FILE SPEC 
CONVERT TO BINARY 
SET FCB DRIVE NO 
TEST FOR END OF STRING 
INVALID FILE SPEC 
GET NEXT STRING CHAR 
TEST FOR SEPARATOR 
INVALID FILE SPEC 
OECREMENT STRING LEN COUNT 
INVALID FILE SPEC 
GET NEXT STRING CHAR 
DECREMENT STRING LEN COUNT 

POINT TO FCB NAME FIELD 
TEST FOR VALID CHAR 
INVALID FILE SPEC 
TEST FOR VALID CHAR 
INVALID FILE SPEC 

PUT CHAR IN FCB NAME FIELD 

TEST FOR END OF STRING 

EXIT GETFIO 

DECREMENT FIELD COINTER 

END OF FIELD ENCOINTERED 

GET NEXT STRING CHAR 

DECREMENT STRING LEN COUNT 

TEST FOR VALID CHAR 

PUT CHAR IN FCB NAME FIELD 

TEST FOR VALID CHAR 

PUT CHAR IN FCB NAME FIELD 

TEST FOR VALID CHAR 

PUT CHAR IN FCB NAME FIELD 

TEST FOR VALID CHAR 

INVALID FILE SPEC 

TEST FOR VALID CHAR 

PUT CHAR IN FCB NAME FIELD 

TEST FOR VALID CHAR 

INVALID FILE SPEC 

TEST FOR VALID CHAR 

INVALID FILE SPEC 

PUT CHAR IN FCB NAME FIELD 

GET NEXT STRING CHAR 
OECREMENT STRING LEN COtNT 
TEST FOB SEPARATOR 
INVALID FILE SPEC 



TEST FOR END OF STRING 
ERRIIB INVALID FILE SPEC 
COUNT, PCR CHECK REMAINING NAME CHARS 
GFB END OF NAME FIELD 

1,X BUMP NAME FIELD POINTER 

COUNT, PCR DECREMENT COUNTER 

GF7 BUMP NAME FIELD POINTER 



8,X» 

e,x+ 
a ,x* 



CLEAR EXT FIELD 
CLEAR EXT FIELD 
CLEAR EXT FIELD 
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27 



OF? 



OF 18 



OFII 



LEAX 

LDA 

STA 

LDA 

OECB 

CMPA 

LBLO 

CM PA 

LBH1 

STA 

TSTB 

BEO 

DEC 

BEO 

LDA 

OECB 

CM PA 

BEO 

CMPA 

BEO 

CMPA 

LBLO 

CMPA 

BLE 

CMPA 
LBLO 
CMPA 
L6HJ 
BRA 

LDA 

CMPA 

LBNE 

OECB 

BNE 

LOO 
RTS 



-3,X POINT TO START OF EXT FIELD 
"3 GET EXT FIELD LENGTH 
COUNT, PCR SET COUNTER 
6,Y» GET NEXT STRING CHAR 

DECREMENT STRING LEN COIMT 
"'A TEST FOR VALID CHAR 
ERRI1S INVALID FILE SPEC 
M'Z TEST FOR UAL ID CHAR 
ERRIla INVALID FILE SPEC 



D REG - RELATIVE RECORD NUMBER 



e ,x» 

OFII 

COUNT 

OFie 
e,y« 

»'- 

OF? 

M'_ 

GF? 

M'B 

ERR) ie 

M'9 

GF? 

M'A 
ERR J 10 
M'Z 

ERR I IS 
OF? 

8,Y» 

MSPACE 

ERRII8 

OF 18 

MB 



PUT CHAR JN FCB NAME FIELD 
TEST FOR END OF STRING 
EXIT GETFIO 

.PCR DECREMENT FIELD COUNTER 
EN* OF FIELD ENCOUNTERED 
GET NEXT STRING CHAR 
DECREMENT STRING LEN COUNT 
TEST FOR UAL ID CHAR 
PUT CHAR IN FCB NAME FIELD 
TEST FOR VALID CHAR 
PUT CHAR IN FCB NAME FIELD 
TEST FOR UAL ID CHAR 

» INVALID FILE SPEC 

TEST FOR UAL JO CHAR 

PUT CHAR IN FCB NAME FIELD 

TEST FOR UAL ID CHAR 

INVALID FILE SPEC 

TEST FOR UAL ID CHAR 

INVALID FILE SPEC 

PUT CHAR IN FCB NAME FIELD 

GET NEXT STRING CHAR 
TEST FOR SPACES 
INVALID FILE SPEC 
DECREMENT STRING LEN COUNT 
GET NEXT TRAILING SPACE 

CLEAR STATUS CODE 
RETURN 



WRREC 



READ RELATIVE RECORD SUBROUTINE 
D REG - RELATIVE RECORD NUMBER 



SU60 

LSLB 

ROLA 

LEAY 

STY 

AOOD 

TFR 

LOO 

8SR 

L8NE 

LEAX 

LDA 

STA 

LCD 

STO 

LEAY 

URREC3 LDA 
JSR 
LBNE 
LOO 
SU60 
STO 
BEO 
INC 
BNE 
LOO 
AOOO 
STO 
LDA 
STA 
JSR 
LBNE 
LDA 
STA 

LDA 
STA 
BRA 

LOO 
RTS 



ADJUST TO ZERO SIGNIFICANT 
SHIFT LEFT B REG 
ROTATE LEFT A REG 
GET KEY TABLE ADDRESS 
STORE KEY TABLE ADDRESS 
ADO KEY TABLE LOC TO OFFSET 
MOVE D REG TO Y REG 
GET PHYSICAL RECORD NUMBER 
POSITION TO RECORD 
EXIT WITH ERROR 
POINT TO ISAM FCB 
GET FMS RNO WRITE CODE 
SET FMS FUNCTION CODE 
SET RECORD SIZE 
COUNT, PCR SET CHAR COUNTER 
BUFFER.PCR POINT TO RECORD BUFFER 



«1 



KEYTAB.U 
-2,S 
-2.S 
0,Y 

e,Y 

POSREC 

EXIT 

IFCB.U 

** 12 

e,x 
recsiz ,u 



WRREC4 



e,Y* GET CHAR FROM BUFFER 

FMS WRITE RELATIVE BYTE 

FMSERR FMS ERROR 

COUNT, PCR GET CHAR COIMTER 

N I DECREMENT CHAR COUNTER 

COUNT, PCR STORE CHAR COUNTER 

WRREC4 NO MORE CHARACTERS 

33 ,X BUMP UNO CHAR OFFSET 

WRREC3 WRITE NEXT CHAR 

32, X GET REL RECORD NUMBER 

HI BUMP REL RECORD NUMBER 

32, X STORE REL RECORD NUMBER 

»»13 GET FMS POSITION COOE 

B,X SET FMS FUNCTION CODE 

FMS POSITION TO REL RECORD 

FMSERR FMS ERROR 

It* 1 2 GET FMS PUT RNO BYTE CODE 

8,X SET FMS FUNCTION CODE 

M4 GET SECTOR OFFSET 

33, X SET RNNO BYTE OFFSET 

WRREC3 WRITE NEXT CHAR 

»« CLEAR STATUS CODE 
RETURN 



RRREC 



RRRECI 



RRREC2 



SUBO 

LSLB 

ROLA 

LEAY 

STY 

AOOO 

TFR 

LOO 

LBSR 

L8NE 

LEAX 

LOA 

STA 

LOO 

STO 

LEAY 

STY 

LOO 

AOOO 

TFR 

LOO 
BNE 
LOO 
RTS 

SUBO 

STO 

JSR 

LBNE 

STA 

INC 

BNE 

LOO 

AOOO 

STO 

LDA 

STA 

JSR 

LBNE 

LDA 

STA 

LDA 

STA 



KEYTAB.U 
-2,S 
-2.S 
O.Y 

e,Y 

POSREC 
EXIT 

1FCB.U 
»»l I 

e.x 

RECSIZ, U 



Ml ADJUST TO ZERO SIGNIFICANT 
SHIFT LEFT B REG 
ROTATE LEFT A REO 
GET KEY TABLE ADDRESS 
STORE KEY TABLE ADDRESS 
ADO KEY TABLE LOC TO OFFSET 
MOVE D REG TO Y REG 
GET PHYSICAL RECORD NUMBER 
POSITION TO RECORD 
EXIT WITH ERROR 
POINT TO ISAM FCB 
GET FMS RND READ CODE 
SET FMS FUNCTION COOE 
GET RECORD SIZE 
COUNT, PCR SET CHAR COIMTER 
BUFFER.PCR POINT TO RECORD BUFFER 
-2,S STORE TEMPORY 
INPAR2.PCR GET MAX RECORD SIZE PARAM 
-2,S ADO TO BUFFER LOCATION 
O.Y MOVE D REG TO Y REG 

COIMT, PCR GET CHAR COUNTER 
RRREC2 MORE CHARACTERS 
MB CLEAR STATUS CODE 
RETURN 

Ml DECREMENT CHAR COUNTER 
COUNT, PCR STORE OlAR COIMTER 

FMS READ RELATIVE BYTE 

FMSERR FMS ERROR 

e,Y» STORE CHAR IN BUFFER 

33, X BUMP RNO CHAR OFFSET 

RRRECI READ NEXT CHAR 

32, X GET REL RECORD NUMBER 

Ml BUMP REL RECORD NUMBER 

32, X STORE REL RECORD NUMBER 

M»1S GET FMS POSITION COOE 

8,X SET FMS FUNCTION COOE 

FMS POSITION TO REL RECORD 

FMSERR FMS ERROR 

M» 1 1 GET FMS GET RNO BYTE COOE 

S,X SET FMS FUNCTION COOE 

M4 GET SECTOR OFFSET 

33, X SET RNNO BYTE OFFSET 

RRRECI READ NEXT CHAR 



POSREC 



X 

< 

CSCOFF 



POSITION TO PHYSICAL RECORD SUBROUTINE 
D REO - PHYSICAL RECORD NUMBER 



BSR CSCOFF CALCULATE OFFSETS 

LBNE EXIT EXIT WITH ERROR 

LEAX IFCB.U POINT TO ISAM FCB 

LOO ACCUM4»2,PCR GET SECTOR OFFSET 

STO 32, X SET FCB CURRENT RECORD NO 

LDA ACCUM3«3,PCR GET CHARACTER OFFSET 

STA 33, X SET FCB RANOOM INDEX 

LDA »»I3 GET FMS POSITION CODE 

STA 8,X SET FCB FUNCTION CODE 

JSR FMS CALL FMS 

LBNE FMSERR GOTO FMS ERROR 

RTS RETURN 



CALCULATE SECTOR CHARACTER OFFSET 
O REG - PHYSICAL RECORD NUMBER 



WRITE RELATIVE RECORD SUBROUTINE 



STO 

LOO 

STO 

LBSR 

LOO 

STO 

LOO 

STO 

LOO 
STO 
LOO 
STO 
LBSR 

LBSR 

LOO 

AOOD 

STO 

CLR 

CLR 

LBSR 
LBSR 



ACCUMI.PCR STORE IN ACCUMULATOR I 
RECSI Z,U GET RECORD SIZE 
ACCUM2.PCR STORE IN ACCUMULATOR 2 
MUL32 MULT ACCUM1 TIMES ACCUM2 
ACCUM3.PCR GET UPPER 14 BITS ACCUM3 
ACCUMI.PCR STORE IN ACCUMULATOR 4 
ACCUM3«2,PCR GET LONER 16 BITS ACCUM3 
ACCUM4«2,PCR STORE IN ACCUMULATOR 4 

MFSIZE.U GET MAX FILE SIZE 
ACCUII.PCR STORE IN ACCUMULATOR 1 
M2 GET RECORD POINTER SIZE 
ACCUM2.PCR STORE IN ACCUMULATOR 2 
MUL32 MULT ACCUM 1 TIMES ACCUM2 



ADD32 



ADO ACCUI14 TO ACCUM3 



M232 GET FIRST SECTOR SIZE 
MI6 ADO ISAM FILE HEADER LENGTH 
ACCUM4»2,PCR STORE IN ACCUMULATOR 4 
ACCUM4»I,PCR CLEAR ACCUMULATOR 4 
ACCUM4.PCR CLEAR ACCUMULATOR 4 
ADD32 ADO ACCUM4 TO ACCUM3 
01V232 DIVIDE ACCUM3 BY 232 
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LDA *4 SECTOR CWR FIXED OFFSET 

AODA ACLLH3»3,PCR «.[>[> TO CHfiR OFFSET 

STA ACCUM3«3,PCR STORE CWR OFFSET 

LOO ACCUM4.PCR GET UPPER 14 BITS ACCUM4 

LBNE ERR14S SECTOR LIMIT EXCEEDED 

RTS RETURN 



MOVE BUFFER 2 TO VARIABLE SUBROUTINE 



FIND I 



NOV62V 



MOVBV1 



HOVBV2 



PSM 

LEAX 

STX 

LDD 

AODD 

TFR 

LOY 

LEAY 

LOD 

STO 

LOY 

LOO 

STO 

LDO 
ONE 

PUL 
RTS 

SUBO 

STD 



MOUBV3 



MOVBV4 

I 

MOVUBI 



8TO 



CLR 

LDO 

BCO 

SUBO 

STO 



PUL 
RTS 



X 

BUFFER 

-2,S 

INPAR2 

-2,S 

o,x 

CIFPNT 

2».Y 

2,Y 

-2.S 

• >Y 

RECSI2 

-4.S 

-2,S 

M0VBV2 
X 



ai 

-2.S 

-4,S 

MOVBV3 

• 1 
-4.S 

e ,x. 

• ,Y. 

movbvi 

• ,y. 

-2,S 

M0VBV4 
■ I 
-2.S 

MOVBV3 



.U 



SAVE X REGISTER 

,PCR POINT TO RECORD BUFFER 
STORE TEMPORY 

,PCR GET MAX RECORD SIZE PARAM 
ADO TO BUFFER LOCATION 
MOVE D REG TO X REG 
PCR GET CALLER 1FCB POINTER 
POINT TO RECORD WAR DESC 
GET VARIABLE LENGTH 
STORE VAR LENGTH ON STACK 
POINT TO VARIABLE STRING 
GET RECORD SIZE 
STORE RECORD SIZE ON STACK 

GET VAR COUNT 

MORE KEYTAB CHARACTER 

RESTORE X REGISTER 

RETURN 

DECREMENT VAR COUNT 
STORE VAR COtUT 
GET RECORD COUNT 
LAST BUFFER CHARACTER 
DECREMENT RECORD COUNT 
STORE RECORD COUNT 
GET BUFFER CHARACTER 
STORE CHAR IN VARIABLE 
MOVE NEXT CHARACTER 

PUT NULL CHAR IN VAR 
GET VAR COIHT 
LAST NULL CHARACTER 
OECREMENT VAR COUNT 
STORE VAR COUNT 
NEXT NULL CHARACTER 

RESTORE X REGISTER 
RETURN 



FIN02 



FINOS 



FIND4 



FINOS 



STO 
LOO 
STO 
STO 

LDD 
ADOO 
CMPD 
BNE 
LOO 
STO 
LDD 
RTS 

LOD 

AODD 

LSRA 

RDRB 

STO 

LBSR 

LBNE 

LEAX 

STX 

LOO 

AOOD 

TFR 

LEAY 

LDD 

STO 

LOO 
BEO 

SUBO 

STO 

LOA 

CMPA 

BLO 

BHI 

BRA 

LDD 
STD 



LDO 
STD 



ULIMIT.PCR SET UPPER RECORD LIMIT 
»» GET STATUS CODE 
LLIMIT.PCR SET LONER RECORD LIMIT 
CURREC.U SET CURRENT RECORD NUMBER 

LLIMIT.PCR OCT LOWER RECORD LIMIT 
■1 ADDO I TO LOWER LIMIT 
ULIMIT.PCR COMPARE TD UPPER LIMIT 
FIN02 CALCULATE NEW CURRENT RECORD 

LLIMIT.PCR GET LOWER LIMIT 
CURREC.U SET CURRENT RECORD NUMBER 
• I GET STATUS CODE 
RETURN 

LLIMIT.PCR GET LOWER LIMIT 
ULIMIT.PCR ADD UPPER LIMIT 
DIVIDE BY 2 



CURREC 

RRREC 

EXIT 

BUFFER 

-2.S 

INPAR2 

-2,S 

D,X 

BUFFER 

RECS1Z 

-2,8 

-2,S 

FIND4 

Nl 

-2.S 

t,x« 

«,Y» 
FINOS 
F1ND4 
FIN03 



,U SET CURRENT RECORD NUMBER 
READ RELATIVE RECORD 
EXIT WITH ERROR 

,PCR POINT TO BUFFER 
STORE TEMPORY 

,PCR GET MAX RECORD SUE 
ADO BUFFER 1 LOC 
MOVE D REG TO X REO 

,PCR POINT TO BUFFER 

,U GET RECORD SIZE 

STORE RECORD SIZE ON STACK 

GET RECORD COUNT 
GREATER OR EQUAL 
DECREMENT RECORD COUNT 
STORE RECORD COUNT 
GET BUFFER 1 CHARACTER 
COMPARE TO BUFFER 2 CHAR 
LOWER 

GREATER OR EQUAL 
COMPARE NEXT CHAR 



CURREC.U SET CURRENT RECORD NUMBER 
ULIMIT.PCR SET NEW UPPER LIMIT 
FINOI COMPARE AGAIN 

CURREC.U GET CURRENT RECORD NIHBER 
LLIMIT.PCR SET MEN LOWER LIMIT 
FIND I COMPARE AGAIN 



MOVE VARIABLE TO BUFFER I SUBROUTINE 



MOWB2 



MOVUB3 



HOW £4 



MOVUBS 



F1NO 



PSH 

LEAY 

LOX 

LEAX 

LOD 

LOX 

STD 

LOO 

STO 

LOO 
BNE 
PUL 
RTS 

SUBO 

STD 

LOO 

BEQ 

SUBO 

STD 

LOA 

STA 

BRA 

CLR 
LDD 
BEO 



8T0 



PUL 
RTS 



X SAVE X REGISTER 

BUFFER, PCR POINT TO BUFFER 

CIFPNT, PCR GET CALLER 1FCB POINTER 

28 ,X POINT TO RECORD VAR DESC 

2,X GET VARIABLE LENGTH 

»,X POINT TO VARIABLE STRING 

-2,S STORE VAR LENGTH ON STACK 

RECSIZ.U GET RECORD SIZE 

-4,8 STORE RECORD SIZE ON STACK 

-4,S GET RECORD COUNT 

MOVU83 MORE VARIABLE CHARACTER 

X RESTORE X REGISTER 
RETURN 

■I DECREMENT RECORD COUNT 

-4,S STORE RECORD COUNT 

-2.S GET VAR COUNT 

M0VUB4 LAST VARIABLE CHARACTER 

■ I DECREMENT VAR COUNT 

-2.S STORE VAR COUNT 

«.X< GET VARIABLE CHARACTER 

<J,Y» STORE CHAR IN BUFFER 

MOWB2 MOVE NEXT CHARACTER 

<J,Y« PUT NULL CHAR IN BUFFER 

-4.S GET RECORD COUNT 

M0WB3 LAST NULL CHARACTER 

«1 DECREMENT RECORD COUNT 

-4.S STORE RECORD COUNT 

M0WB4 NEXT NULL CHARACTER 

X RESTORE X REGISTER 
RETURN 



SETUF 



SETUF I 



ADD32 



SET UPDATE FLAG AND MARK FILE CORRUPT 



TST UFLAO.U TEST UPDATE FLAG 

BEO SETUF I SET FLAG AND MARK FILE 

LDO M GET STATUS CODE 

RTS RETURN 

INC UFLAG.U SET TO NON ZERO 

LEAX IFCB.U POINT TO ISAM FCB 

LOO Ml GET FIRST RELATIVE REC NO 

STO 32.X SET FCB REL RECORD 

LDA «*I3 GET FMS POSITION CODE 

STA e.X SET FCB FUNCTION CODE 

JSR FMS POSITION TO RECORD 1 

LBNE FMSERR GOTO FMS ERROR 

LDA »»12 GET FHS PUT RANDOM COOE 

STA 8.X SET FMS FUNCTION CODE 

LDA H12 GET BYTE OFFSET 

STA 33, X SET FCB BYTE OFFSET 

LDA NtFF GET NON ZERO CODE 

JSR FMS PUT RANDOM BYTE 

LBNE FMSERR GOTO FMS ERROR 

INC 33.X BUHP FCB BYTE OFFSET 

LDA «1FF GET NON ZERO COOE 

JSR FMS PUT RANOOM BYTE 

LBNE FMSERR GOTO FMS ERROR 

LDD »l CET STATUS CODE 

RTS RETURN 



ADO ACCUM3 • ACCLM4 SUBROUTINE 
ACCUM3 » SUM 



FIND KEY RECORD SUBROUTINE 



LOO 

A00O 



AFSIZE.U 

• 1 



GET ACTUAL FILE SIZE 
BUMP RECORD NUMBER 



LDA 

AODA 

STA 

LDA 

ADCA 

STA 

LDA 

AOCA 

STA 



ACCUM3. 
ACCUM4* 
ACC(M3» 
ACCUM3« 

ACCUM4. 
ACCUM3« 
ACCUM3* 
ACCLM4« 
ACCUM3* 



3, PCR 
3, PCR 
3, PCR 
2, PCR 
2, PCR 
2, PCR 
I, PCR 
I, PCR 
I ,PCR 



GET ACCUM 3 
AOO TO ACCUM 4 
STORE IN ACCUM 
GET ACCUM 3 
ADO TO ACCUM 4 
STORE IN ACCUM 
GET ACCUM 3 
AOO TO ACCUM 4 
STORE IN ACCUM 
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a 
a 

HUL32 



LOA ACCUM3.PCR GET ACCUM 3 

AOCA ACCUM4.PCR ADO TO ACCUM 4 

STA ACCUM3.PCR STDRE IN ACCUM 3 
RTS RETURN 



MULTIPLY ACCUM I ACCUM2 SUBROUTINE 
ACCUM3 - PRODUCT 



MUL32 I 



MUL322 



CLR 

CLR 

LOA 

LOB 

MUL 

STD 

LCM 

LOB 

MUL 

AOOO 

STD 

BCC 

INC 

LDA 

LDB 

MUL 

ADDD 

STD 

BCC 

INC 

LDA 

LOB 

MUL 

AOOO 

STD 

RTS 



ACCUM3.PCR CLEAR FIRST BYTE OF ACCUM3 
ACCUM3* l.PCR CLEAR 2ND BYTE OF ACCUM3 
ACCUM2'1,PCR GET LOWER ACCUM2 
ACCUMI. I, PCR GET LOWER ACCUM1 

MULTIPLY A REG TIMES B REG 
ACCUM3»2,PCR SAVE RESULTS 
ACCUM2«I,PCR GET LOWER ACCUM2 
ACCUMI.PCR GET UPPER ACCUM1 

MULTIPLY A REG TIMES B REG 
ACCUM3M ,PCR ADD ACCUM3 TO RESULT 
ACCUM3«I,PCR STORE IN ACCUM3 
MUL32I NO CARRY 

ACCUM3.PCR ADD CARRY TO ACCUM3 

ACCUM2.PCR GET UPPER ACCUM2 
ACCUMI* I, PCR GET LOWER ACCUMI 

MULTIPLY A REG TIMES B REG 
ACCUMSO.PCR AO» ACCUM3 TO RESULT 
ACCUM3. l.PCR STORE RESULT IN ACCUM3 
MUL322 NO CARRY 

ACCUM3.PCR AOD CARRY TO ACCUM3 

ACCUM2.PCR GET UPPER ACCUM2 
ACCUMI.PCR GET UPPER ACCUMI 

MULTIPLY A REG TIMES B REG 
ACCUM3.PCR ADO ACCUM3 TO RESULT 
ACCUM3.PCR STORE RESULT IN ACCUM3 

RETURN 



2, PCR GET ACCUM 3 

SUBTRACT STACK 
2, PCR STORE ACCUM 3 
l.PCR GET ACCUM 3 

SUBTRACT STACK 
I, PCR STORE ACCUM 3 
PCR GET ACCUM 3 

SUBTRACT STACK 
PCR STORE ACCUM 3 
3, PCR GET ACCUM 4 

AOD STACK 
3, PCR STORE ACCUM 4 
2, PCR GET ACCUM 4 

ADD STACK 
2, PCR STORE ACCUM 4 
l.PCR GET ACCUM 4 

ADD STACK 
I ,PCR STDRE ACCUM 4 
PCR GET ACCUM 4 

AOD STACK 
PCR STDRE ACCUM 4 

SHIFT RIGHT DIVISOR t> MASK 



■ l 1 1 II i I (1 1 1 II 1 1 II i I (I i I II 1 1 II *1>I fill II 1 1 II 1 1 1 ail 11 

« a 

1 ISflM SUBROUTINE EXIT I 

a a 



LOA 


ACCUM3* 


SBCA 


-A.S 


STA 


ACCUM3» 


LOA 


ACCUM3* 


SBCA 


-7.S 


STA 


ACCUM3* 


LOA 


ACCUM3, 


SBCA 


-B,S 


STA 


ACCUM3, 


LOA 


ACCUM4* 


ADDA 


-i,s 


STA 


AC CU 14* 


LOA 


ACCUM4* 


A OCA 


-2,S 


STA 


ACCUM4* 


LOA 


ACCUM4* 


AOCA 


-3.S 


STA 


ACCUM4* 


LOA 


ACCUM4, 


AOCA 


-4,S 


STA 


ACCUM4.I 


BRA 


D1V2 



EXIT 



0IV232 



DIVIDE ACCUM3 SY 232 SUBROUTINE 



ACCUM3 - REMAINDER 
ACCUM4 - QUOTIENT 



DIV1 



DIV2 



D1V3 



DIV4 



LOA 
STA 
CLR 
CLR 
CLR 
LOA 
STA 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
CLR 

LOA 

CM PA 

8LO 

BHI 

LOA 

OtPA 

BLD 

BHI 

LOA 

CMPA 

BLO 

BHI 

LOA 

CMPA 

BLS 

LSR 
ROR 
RDR 
RDR 
BCC 
RTS 

LSR 
ROR 
ROR 
ROR 
BRA 

LOA 

SU6A 

STA 



• 232 
-fl.S 

-7,S 
-<4,S 
-3.S 

Ml 

-t.s 

-3,S 
-2.S 
-1.9 

ACCUM4 
ACCUM4 
ACCUM4 
ACCUM4 

-B.S 

ACCUM3 

01V4 

OIV2 

-?.S 

ACCUM3 

0IV4 

01V2 

-<4,S 

ACCU13 

DIV4 

DIV2 

-3,S 

ACCUM3 

DIV4 

-4.S 
-3.S 
-2.S 
-1,8 

OIV3 



GET DIVISOR 
STORE IN STACK 
CLEAR STACK 
CLEAR STACK 
CLEAR STACK 
GET MASK BIT 
STORE IN STACK 
CLEAR STACK 
CLEAR STACK 
CLEAR STACK 
PCR CLEAR ACCUM 4 

♦ l.PCR CLEAR ACCUM 
2, PCR CLEAR ACCUM 

♦3, PCR CLEAR ACCUM 



-B,S 
-?.S 
-<J,S 
-3,S 
D1VI 



GET DIVISOR VALUE 
,PCR COMPmRE TO (WV1DEND 

SUU DIVISOR FROM DIVIDEND 

ROTATE DIVISOR AND MASK 

GET DIVISOR VALUE 
♦I, PCR COMPARE TO DIVIDEND 

SUB DIVISOR FROM DIVIDEND 

ROTATE DIVISOR AND MASK 

GET DIVISOR VALUE 
• 2, PCR COMPARE TO DIVIDEND 

SUB DIVISOR FROM DIVIDEND 

SHIFT RIGHT DIVISOR flNO MASK 

GET DIVISOR VALUE 
♦3, PCR COMPARE TO DIVIDEND 

SUB DIVISOR FROM DIVIDEND 

SHIFT RIGHT STACK 
SHIFT RIGHT STACK 
SHIFT RIGHT STACK 
SHIFT RIGHT STACK 
SKI FT RIGHT STACK 
RETURN 

SHIFT RIGHT STACK 
SHIFT RIGHT STACK 
SHIFT RIGHT STACK 
SHIFT RIGHT STACK 
COMPARE DIVISOR TO DIVIDEND 



RTS 



ERR IBS LDD 
RTS 



ERR1JJ3 LOD 



■ ise 



RETURN 



INVALID FILE NUMBER 
RETURN 



INVALID COMMAND 



RTS 



RETURN 



ERR 11* 


LOO 
RTS 


• i le 


1MJALID FILE SPECS 
RETURN 


ERR US 


LDD 
RTS 


#113 


INVALID FILE VERSION 
RETURN 


ERR12* 


LDD 
RTS 


«ua 


INVALID RECORD SIZE 
RETURN 


ERR 123 


LOD 
RTS 


It 123 


RECORD SIZE TO LARGE 
RETURN 


ERR 1 38 


LOD 
RTS 


•use 


INVALID FILE SIZE 
RETURN 


ERR 133 


LDD 
RTS 


■ 133 


FILE SIZE TO LARGE 
RETURN 


ERR 148 


LOO 
RTS 


■ 14<l 


ACTUAL FILE SIZE > MAX 
RETURN 


ERR 143 


LDO 
RTS 


MI43 


MAX SECTORS EXCEEDED 
RETURN 


ERRlSe 


LOO 
RTS 


«.',!■ 


CORRUPT FILE 
RETURN 


ERR 133 


LDD 
RTS 


• 133 


FILE NOT OPEN 
RETURN 


ERR168 


LDD 
RTS 


■ ue 


FILE IS OPEN 
RETURN 


ERR 163 


LDO 
RTS 


Ml 43 


START OF FILE 
RETURN 


ERR 179 


LDO 
RTS 


<n?» 


END OF FILE 

RETURN 


ERR 173 


LOD 

RTS 


111 73 


CANT AOD NULL RECORD 
RETURN 


ERR1B4 


LDD 
RTS 


■tbD 


FILE FULL 
RETURN 


FMSERR 


CLRA 
LOB 

RTS 


1,X 


CLEAR A REGISTER 
GET FCB STATUS BYTE 
RETURN 



ACCUM3«3,PCR GET ACCUM 3 
-3,S SUBTRACT STACK 
ACCUM3»3,PCR STORE ACCUM 3 
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K-BBSIC updates are nam available. If gan 
purchased K-BBSIC prior to Jnlg I. 19BS 
and Dish to have goer K-BBSIC updated, 
please send $35 enclosed nrith gonr master 
disk to Southeast media. 

K-BHSIC under OS-9 and FLEX will now compile 
TSC BASIC. XBHSIC. and XPC Source CodB Filee 



X Telex 5106006630 

(615)842-4600 



2-4600 m 

^IM Hit? 

5900 Cassandra Smith Rd. 

Mixson. TN 37343 

for Information 

call (SIS) 842-4601 

CoCo OS-9'" FLEX" 

SOFTWARE 



V 



K. — DnSIrLa now mokes the multitude of TSC NOftSIC Software 
auallabte for use under OS-9. Transfer your fauorlte OHSIC 
Programs to OS-9. compile them. Resemble them, and 
(DQEHBCD — usable, multi-precision, familiar Software Is 
running under your fauorlte Operating Systeml 

EC — BASIC (OS-9 or rite). Iwcie.dli. ss the Rsiembler 

!!! Special!!! ^J**^ $99.49 





Sculptor 



/// 



f e+ 



' c e s 



Microprocessor DtnlopHiti Ltd .'s Commercial Apmllcatlom Cmaarator Program provides a PAST 
Commercial Application Development tool unavailable to the 0S-9 and UnlFLF.X Use r before, Develop .my 
Commercial Application In 20X of the normal required tine; gain eaay updating or cuetoalzlng. PLUS, 
the Application can also be run on MS-DOS and Unix machines! Sculptor handlea Input validation, 
couples calculations, and exception conditions as well aa the normal collecting, displaying, reporting, 
and updating information In an orderly fashion. Key fields to 160 bytes; unlimited record size: file 
size should be held to 17 million records. Utilizes ISAM File Structure and B-tree Key files fur rspld 
scccdi. Input and Output communication with other programa nnd files plus a library of ISAM routines 
for uae with C Programa. Run-time Included w/ the Development package; a compiled Application only 
needa a Run-time Llcenae. Additional charge for Networked Unite. Prices for Development Feckaga/luo- 
tlme. Discounts available for purchases of 5 or more Run-tine Package*. 



/// 



0S-9 / UnlFLEX — 










68000 UnlFLEJ 




MS DOS — 








IBM PC Zenlx 


$»«5. 00/3175. 00 


Altos Zenln 




-- $l5»5.00/»2*5.00 — $$9S.00/$I 15.00 


MS DOS Network — 


* 




a* 




UNIX 




— 


» *» PC DOS — * 




** 




* Pull Developeme 


nt Package 


** Run 


Time Pa 


ckage Only 




Full OEM smd Dealer Dlacounts Avsll 


able 


! 




hf III Special 


Buy Out 


III 


SPECIAL - Limited 


Quantity Ml Special Buy 


Out 


... J 


F^ 6BOT FLU 


■■■--•An 




















TSC Flea Ut lilt Us 




was 


$75.00 


•am 


oq ly 


$5*. 00 






MAKUALS OKLT 








TSC Basic 




was 


S7S.00 


■ma 


ooly 


•35.00 




TSC 


taalc Prscoapller vaa S25.O0 


tarn 


ooly 


$20.00 


TSC Eitaorfed Precompiler 




was 


S5O.00 


■am 


only 


$35.00 




TSC 


Tail Editor vaa $25.00 


amm 


ooly 


$20.00 


TSC Tsxt Processor 




was 


$75.00 


■am 


only 


$s».oo 




TSC 


Debus, vaa $25.00 


■am 


ooly 


$20.00 


TSC Flex Precompiler 




was 


950.00 


■am 


only 


135-00 




TSC 


Mnemonic Aseeabter vaa $25.00 


■am 


only 


$20.00 


TSC ris> (sale 




was 


S75.0O 


■am 


only 


tse.ot 














TSC Fits DLsinostlc 




vaa 


S75.00 


■mm 


only 


$50.00 






C0MPLETK 6100 SOFTWARE 








TSC Test Processor 




vaa 


575.00 


mam 


only 


$S«.00 




TSC 


Text Processor vaa $50.00 


■am 


ooly 


$35.00 


TSC Mllibltr 




>•< 


$50.00 


■am 


only 


$35.00 




TSC 


Pracoapller vaa $50.00 


■am 


ooly 


$35.00 


TSC Da bug 




vaa 


S75.O0 


■mm 


only 


$50.00 




TSC 


DlafnoatLca vaa $75.00 


■am 


ooly 


$50.00 


TSC Precompiler 




was 


$50.00 


■am 


ooly 


$35.00 






DISKS ONLY - 6100 Software 








TSC Editor 




vaa 


S50.00 


■am 


ooly 


$15. M 




TSC 


Editor waa S50.00 


■am 


only 


$35.00 


TSC Sort/Mari* 




vaa 


$75.00 


■am 


ooly 


$50.00 




TSC 


Utilities was S100.00 


■am 


only 


$70.00 


TSC Utilities 


DISKS 


vaa 

ONLY 


$75.00 


■am 


ooly 


$50.00 




TSC 


AliSablan was S50.00 

MANUALS ONLY . 6(00 Software 


Be* 


ooly 


$35.00 


TSC extended Precompiler 




was 


$50.00 


■am 


ooly 


$35.00 




TSC 


Diagnostics waa $25.00 


asm 


only 


$20.00 


TSC Basic Fits 




vaa 


$75.00 


■am 


onlr 


$50.00 




TSC 


Oebu( j waa $25.00 


asm 


ooly 


$20.00 


TSC Dllgoost In 


wl" 


was 


$75.00 


■am 


ooly 


$50.00 




TSC 


Taut Processor T^kv "*" 525-00 


■am 


ooly 


$20.00 


TSC UtLUllaa 


2> 


vaa 


S75.00 


■am 


only 


$50.00 






*w 










nf 


III 


PI MM 


Scwaclfy Your 


OpmratliHj Systems i Disk SIjmj III 
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(615)842- 



Telex 5106006630 

2-4600 A 

5900 Cassandra Smith Rd. 
Hixson. TN 37343 

for Information 
call «15) 843-4801 

CoCo OS-9" FLEX" 

SOFTWARE 




HSSEITIBLERS 



ASTRUK09 fron Southeast Mil — A 'Structured Assembler for the 
6609' which requires the TSC macro Aisemtler. F, CCF - 599. 9S 



Bier for TSC -- 



The FLEX STAmDARfl Assembler. 
Special — CCF us. 00; 



F ISO. 00 



OS* Extended 6609 Micro Assembler fron Lloyd I/O. — Provides local 
libels. Motorola S-records. and Intel Hex records; XREF. Gene- 
rate OS-9 Memory modules under FLEX. FLEX, CCF, OS-9 S99.00 

Relocating, Assembler w/llnklng leader from TSC. — Use with tuny of 
the C and Pascal Compilers. F.CCF 1150.00 

BUCI, by Craham Trott (rol Vlnlrub Micro *rete*e — Go-Realdent 
E It or and Assembler; feat Interactive A.L. Programming for aull 
to asdlua-mlied Programs. F.CCF - S7S.O0 

— HACC w/ Croaa Aeeeabler for 6600/1/2/3/6 F.CCF - Sit. 00 



TIDE CROSS ASSEMBLERS fro* Computer Systems Consultants -- 
Supports 1802/5. Z-BO, 6BO0/1/2/3/B/U/HCH. 6804, 6805/HCOS/ 
146B05, 6809/00/0!, 6502 family, 8080/5, 8020/1/2/ 35/C35/39/ 
40/4B/C4B/49/C49/S0/B748/49, 8031/51/8751. and 68000 Systems. 
As stabler and Listing formats sane as target CPU's format. 
Produces itacMm Independent Kntoroll S-Te«.t. 

FLEX. CCF, 05-9. UnlFlEX each - 550.00 

any 3 - S10O.O0 

the coaplete set */ C Scarce ( except the 68000 Source) - SZOO.OO 

ZASM Cross Assemblers for FIE* from Compaieaac ltd. — This set of 
6800/1/2/3/5/8. 6301. 6502. 8060/5. and Z60 Cross Assemblers 
uses the familiar TSC Micro Assembler Commend Line and Soruce 
Code foraat. Assembler options, etc.. In providing code for the 
Car9et CPU's. Coaplete set, FLEX only • SISO.oo 

CMSN* from Lloyd I/O — 8-81 1 Macro Cross Assembler with sane 
features as OSM; cross-assemble to 6800/1/2/3/4/5/8/9/11. 6502, 
1602, 6046 Sers, 60/65, 2-6, 2-60, TMS-7000 sers. Supports the 
target chip's standard mnemonics and addressing •odes. 

FLEX. CCF, OS-9 Full package — 5399.00 

CHASM 16.32 froa Hard I/O — Cross Asseebler for tire SSOOO. 

FLEX, CCF, OS-9 5249.00 




AH II D.S.A. 

lata. »2. JO) 
aae si fmrfacv rsr«ie» 

101 Alt r^xmigu 



DISflSSEITlBLERS 



SUPER SLEUTH froa Computer S steas Centaltents — Interact!* 
Olsasseabler; eitreaely POWERFULI Disk File Binary/ASCI! 
Examlne/Cnange, Absolute or FULL Disassembly. XREF Generator, 
label "Name Changer', and Files of "Standard Label Names" (or 
different Operating Systeas 



Color Competer 

CCO (32K Req'd) ObJ. Only 549.00 

CCF, ObJ. Only SSO.OO 

CCF, WSource 599.00 

CCO. ObJ. Only 550.00. 



SS-SO (at (all ■/ A.L. 
F. 599.00 
U. 5100.00 
0. 5101.00 



Source ) 



OTIAMITE ♦ froa Computer Systeas Coster — Excellent standard 
'Batch Mode* Olsasseabler. Includes XREF Generator and 
'Standard label' Files. Special OS-9 options ■/ OS-9 Version. 

CCF. ObJ. Only 5100.00 CCO. ObJ. Only 5 59.9S 

F, * " 1:100.00 0. " " SISO.OO 

U. - - 5300.00 



PROGHHmminG LHI1GUHGES 



P1./9 froa Wlawlraah Were lyetemm — By Craham Trocc. A combination 
Bdltor/CoapUer/Dcbugger. Direct aource-to-object compilation 
delivering faat, coapact. re-entrant. ROM-able, PIC. 8 1 16-blt 
tntegera a 6-dlglt Real nuabcra for all real-world probleaa. 
Direct control over ALL Syataa raaourcea, Including Interrupt*. 
Coaprehaoalve library support; alaple Machine Code Interface; 
atep-by-etcp tracer for Inotant debugging. 540a page Manual 
with tutorial guide. T. CCP - SI9I.M 

WHIMSICAL froa ahlmtlcal Developments — Now supports Real lumbers. 
'Structured Programing" WITHOUT losing the Speed and Control of 
Assembly Language! Single-pass Compiler features unified, uter- 
deflned I/O; produces ROMable Code; Procedures and Modules 
(Including pre-complled Modules); aany 'Types* up to 32 bit 
Integers, 6-4101 1 Real Numbers, unlimited sized Arrays (vectors 
only); Interrupt handling; long Variable Names; Variable 
Initialization; Include directive; Conditional compiling; direct 
Code Insertion; control of the Stack Pointer; etc. Run-Time 
subroutines Inserted at called during compilation. Normally 
produces 101 less code than PL/9. F ind CCF - 5195.00 

C Compiler from Wlndrush Micro Systems by Janes NcCosn. Full C for 
FLtX except bit-fields. Including an Assembler. Requires the TSC 
Relocating Assembler if user desires to Implement his own 
Libraries. F and CCF - 52*5.00 

C Compiler from Intrel — Full C except Doubles and Bit Fields, 
streamlined for the 6609. Reliable Compiler; FAST, efficient 
Code. More UNIX Compatible than most. 

F, CCF, 0. and U - S575.00 

PASCAL Compiler from LucldaU — ISO Based P-Code Coapller. 

Designed especially for Microcomputer Systems. Allows linkage to 
Assembler Code for maximum flexibility. 

F and CCF 5* - SIM. 00 F a* - S2O5.0O 

PASCAL Co.pUn (roa Oaagajaft (now CartlrtaJ tafrwara) — For the 

PJoriltlOlai, ISO Baaed, Native Code Coapller. Primarily for 

Real-Tlae and Proceaa Control appllcat torn. Powerful; Flexible. 

Reaulree a "Motorola Coapatible' Belo. Aaab. and Unking la&dtr. 

r and CCP - 5425.00 One Tear Katnt. - $100.00 

S-IASIC froa LLOTO I/O — A 'Native Code' BASIC Compiler which is 
now Fall* TSC XtASIC compatible. The compiler compiles to 
Assembly Language Source Code. A HEM, streamlined. Assembler is 
now Included allowing the assembly of LARGE Compiled K-BASIC 
Programs. Conditional assembly reduces Run-time package. 

FLEX. CCF, OS-9 compiler wit* Assembler - 1199.00 



"FLEX is a iiademaih of Technical Systems Consultants 
"OS9 it a trademark ol Microwmio 

III PI 



CHURCH COBOL from tompwtwite ltd. — Supports large subset of ANSI1 
Level 1 COBOL with many of the useful Level 2 features. Full 
FLEX File Structures, including Random Filet and the ability to 
process Keyed Files. Segeent and lint large programs at 
runtime, or Implemented as a set of overlays. The System 
requires 56K and CAN be run with a single Disk System. 

FLEX, CCF; Normally 1199.00 
Special Intrude* lory rrlca (while In effect) — S99.9S 

FORTH froa Stearns Electronics — A Coco FORTH Programming 
Language. Tailored to tile CoCol Supplied on Tape, transferable 
to dltk. Written In FAST ML. Many CoCo functions (Graphics, 
Sound, etc.). Includes an Editor, Trtco, etc. Provides CPU 
Carry Flag accessibility. Fast Task Multiplexing, Clean Interrupt 
Handling, etc. for the "Pro". Excellent "learning" tooll 

Color Computer OBL" - SSB.95 
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PSOFT WARE |DE VELOPmEnT^J l 

BaslcOf x*ef froa Southeast Hedlt -- This 6*sic09 Cross Refer**** 
Utility Is a 8asic09 Prograa which will produce a 'pretty 
printed' listing with etch lln nunaSered, followed by a complete 
cross referenced listing of ill variables, external procedures, 
• nd line numbers called. Also Includes a Program list Utility 
which outputs a fast 'pretty printed* listing with line nunbers. 
Requires 8as1c09 or RunB. 

4 CCO obj. only — S3*. IS: *f Source - J79.95 

laclilill rtSCAX. UTIUTUS lasuir.e LOCOIATA IMUl or 3) 
mr — produce « Cross Reference Listing of any cexc; oriented to 

Pascal Source* 
XICLODI — Include other files In a Source Test,, Including Binary; 

unlimited nesting capabilities. 
FIO'ILII — provides an Indented. Nueh-rcd, "structograe" of a 

Pascal Source texc rile: view c hi: overall structure of large 

progriai, prograa Integrity, etc. Supplied In Piece! Source 

Code; requires cospllfltlon. 
?. CCF tiCa Utility 5" - $10.00, B- - SSO.OO 

OUs from Southeast Media — • A Unimex 'basic' Oe-Compllrr. Re- 
create a Source Listing from UnlFLEX Caviled basic Prograas. 
works tl ALL Versions of 6809 UnlFLEX basic. <] - SJ19.95 

FULL SCKEi FOURS OISPLAT fron Computer *nt« COMglttaU — TSC 
Eiteaded BASIC program supports any Serial Terminal with Cursor 
Control or Memory -Mapped video Displays; substantially extends 
the capabilities of the Prograa Designer by providing a table- 
driven method of describing and using Full Screen Displays. 

P and CCP, U - S2S.00, w/ Source - SSO.OO 



diskIutTlitiesj 



OS-9 »DHk fror, Southeast Nttfil -- For Level I only. Use the 
Eiteaded Hsmory capability of your SMTPC or Glmlx CPU card (or 
slallar format DAT) for FAST Program Coaplles, CUD execution, 
high speed Inter-process coanunlca tloni (without pipe buffers), 
etc. • SAVE that Systea Heawry. Virtual Disk site Is variable In 
4K Increments up to 96DK. Some Asseably Required. 
— Laxntl I OUT — OS-g obJ. only - S71.JS; w/ Source - S149.9S 



o 



0-F froa Stutkaltt Media — written in 1ASIC09 <a-lth Source), 
includes: REFORHAT, • BASIC09 Program that reformats * chosen 
amount of an OS-1 disk to FlEX For«at so It can be used normally 
by FLEX; and FLEX, a BASIC09 Program that does tlie actual read 
or write function to the special P-f Trsaifer Dlik: user-friendly 
aenu driven. Read the FLEX Directory, Delete FlEX Files, Copy 
both directions, etc. FLCx users use the special disk Just like 
any other FLEX disk. snciu. M |UT OfrTl 0-S3».»5 

COProuLT from Southeast Media — Copy LAIICt Disks to several 
nailer disks. FLEX utilities allow the backup or ART tilt disk 
to any SMALLER size diskettes (Hard Disk to floppies, a* to 5", 
etc.) by slaply Inserting diskettes as requested by COrVMLT. 
Ho fooling with directory deletions, etc. C0PTM0LT.CMD 
understands normal 'copy' syntax and keeps up with flies copied 
by maintaining directories for both host and receiving disk, 
systea. Also Includes BACKUP. Of. to download any size "random' 
type file; RESTORE. CM) to restructure copied 'randoa' files for 
copying, or recopylng back to the host systea; and FREE1IRK.CM0 
as a 'bonus* utility that 'relinks* the free chain of floppy or 
hard disk, eliminating fragmentation. 

Completely J o e — aatsd Assembly u*9asfe Soarc* fills Included. 

ALL ( Prograas (FlEX, 8* or S') J99.SO 

COPTCAT froa LwcldaU — Pascal NOT required. Allows reading TSC 
Hlnl-FLEX. SSB D0S68, and Digital Research CP/M Disks while 
operating under FLU 1.0, FLEX 2.0, or FLEX 9.0 wl u> 6800 or 
6B09 Systeas. COPYCAT will not perfora alracles, but, between 
the prograa and the manual, you stand a good chance of 
accomplishing a transfer. Also Includes some Utilities to help 
out. Programs supplied in modeler Source Code (Asseably 
Language) to help solve unusual probleas. 

F and CCF S' - SSO.OO F 8" - 165.00 
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rutl DISK DTILITUB froa < " > , n r »-r-.teaa CmnltMCfl — Wght <»> 
different A««enbly Language. (*/ Source Code) P1XX Uc tilde* for 
every FLEX User* Toolbox: Cojy ■ File with QC Errors; Taet Dlik 
for error*; Co*V«n two Disk*, a fast nuk »■«*■» progr-m; Ult 
Dlik Sec tore; Llaeavls* Pree-Ch-ii* on the Dlak; print Mak 
idjeatiilcetloa; and Sart and t-tplnc« the 01«k Olrectorj (in 
eorced ord«r). -- FLOS -» Ten XBASIC frograae Id eluding! A 
BASIC liM^oMctr */ich 6CTRA* over 'MVUtT Like check for BLaalng 
label definition* , procaaRa* Wed to Usk Inatead of in He*ory, 
etc. Other progroaia Com? ere. Hart** or C« aerate Update e 
between two BASIC Prograa*. chock BASIC S**a"c* ■■ekora, 
co«p«r« tn NNq«e*c*-d file*, and 5 Progrtafl for establishing ■ 
Mailer Directory of aeveral Dlefce, and aorttng, selecting, 
updating, and Printing paginated Hattnga of thoae file*. A 
BASIC Croaa-t*f*r«Hc* Prograa. written in AeeasbLy Mngoage. 
which provide* an X-Ref Llatlng Of the Variable* aod RCitrwd 
Worda 1a TK UIIC. DARC- and fUUWUJD AA5IC Prograaa. 

ALL Utllltlea Ijltlnal* t+atc* (either BASIC or A.L, Source Coda). 

r and CCP - SM.OO 

1AAIC Vtllltlas PIT for ThAWIMM — $30.00 



communicflTions 



CMOOEN Talecoaaunlca tloas Profrsa froa Computer Systems 
Consul test j. Inc. — Menu- Driven; supports Dumb- Terminal Mode. 
Upload and Download In non-protocol mode, and the CP/li 'Hodea7* 
Chrlstensen protocol aode to enable communication capabilities 
for almost any requirement. Written In "C". 

nit, CCF, OS-g. UnlFlEX; with complete Source - liOO.OO 

■Ithout Source - SSO.OO 

XOATA from Southeast media — A COMUIICATIOl Package for the 
UaiFLEI Operating Systea. Use «1th CP/M. Main Frames, other 
UnlFLLX Systems, etc. Verifies Transmission using checksum or 
CRC: Re-Transmits bad blocks, etc. U • S2W.SS 



I 
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RAPIER - 680g Cat!! Prograa froa Somtheait Hedta — Requires FLEX 
and Displays on Asy Type Terminal. Features: Four levels of 
play. Swap side. Point scoring system. Two display boards. 
Change skill level. Solve Checkmate probleas In 1-2-3-4 moves. 
Hake move and swap sides. Play white or black. This Is one of 
the strongest CHESS prograas running on any microcomputer, 
estimated USCF Rating 1800* (better than most 'club' players at 
higher levels). F and CCF - S79.9S 
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SCREOITOR III fro* olndruth Micro Systems — Powerful Screen- 
Oriented Editor/Word Processor. Almost SO different commends; 
over 300 pages of Documentation with Tutorial. Features Hultl- 
Colunn display and editing, "decimal align* columns {AND add them 
up automatically!, multiple keystroke macros, even/odd page 
Headers and footers, imbedded printer control codes, all 
justifications, "help* support, store coraon command series on 
disk, etc. Use supplied "set-ups", or remap the keyboard to 
your needs. Except for proportional printing, this package will 
00 IT ALL! 

6400 or 6809 FLEX or SSB 005, OS-9 - 1175.00 

BTTLO-CtAPI from Creel filial Campetar Co. — A full-screen 
oriented WORD PROCESSOR — <u«ee the 51 s 2* Dteplay Screena on 
CoCo FLIl/STAii-DOS, or PSJ Wordpek). Full screen display and 
editing; supports the Daley Wheel proporclonel printer*. 

— > CCF and CCO - $99.95, F or - 517». 95. U - SMt-gj 



RTTLO-RPRLL from Creat Plain* Competar C*. --'Flat Computer 

Dictionary. Complement* Stylograph. 
sagM yrniew. > CCF end CCO - S*9.95, F or - S M.95 . U - S 1*9. 95 

STTLO-fJRKI from Croat Plslne Coasmtor Ca. — Merue Mailing List to 
"Form" Letcere, Print multiple Filei. etc., through Stylo. 

-> CCP and CCO - $59.95, F or - S7*.» t - $1*9.95 



JOST from Soothssst media -- Tent Formatter developed by Ron 
Anderson; for Oot Matrix Printers, provldee many unique featuree. 
Output "Formatted" T»«l to the Dlaplay. Vea the PPRIKT.CMD 
supplied (or producing, multiple copiea of the "Formatted" Text on 
the Printer 1NCLUDINC IMRKD0CD PtUTTRI CTJSSXAaTOB ( n ry uaeful at 
other times also, and worth the price uf the program by itself). 
"User Configurable" tor adapting to other Printers (cooes aet up 
far Epson HX-BIJ with (iraltrsx); up to ten (10) Imbedded "Printer 
Control Commands". Compensates for a "Double width" printed line. 
Includes the normal line width, margin, indent, paragraph, specs, 
vertical eklp lines, page length, page numbering, centering, till. 
Justification, etc. Use with FAT or any other editor. 

* Now supplied as a two dlak aet: 
Dish Fl; JUST2.CKD object file, JUST2.TXT PL9 source: FLU - CC 
Disk II: JUSTSC object end source In C: FLU - OS9 - CC 

The JTSC ens regular JOST C source ere cwo separate 
programs. JTSC compiles to a verelon that expects TSC Word 
Processor type commands, (.pp -sp .ce etc.) Creat for your older 
text fUes. 

'* \ 




The C source compiles to a standard syncs* JUST. CPU) 
object file. Using JOST syntxx (,p ,„ ,y etc.) With sll JUST 
[unctions plus several additional printer formatting functions. 
Reference the J0STSC C aourc.4!. For those wanting an excellent 
• UOCRT PRICRO word processor, with features mm of the others 
hive!. This is itl 

Disk (1) - PL9 FLEX Version only - F & CCF - $49.95 
Disk Set 12) - Fi CCF t OS9 (C version) - 569.95 

SPELLS "Computer Dictionary" from Southeast Media -- OVER 120,000 
words! Look up a word from within your Editor or Word Processor 
(with the SPH.CUD Utility which operates In the FLEX UCS). Or 
check and update the Text after entry; ADO HOBOS to the 
Dictionary, "Flag" questionable words In the Text. "View a word 
In context" before changing or Ignoring, etc. SPELLS first 
checks a "Common Word Dictionary", then the norul Dictionary, 
then 4 "Personal Word List", and finally, any "Special Word List" 
you nay have specified. SPELLS also allows the use of Small Disk 
Storage systems. 



F and CCF - UZ9.9S 



ill :■, 






RONS from aestcbester Applied Soilness System! — Powerful OShS; 

1.1. program will work on a xtmclt aided S" disk, yet Is F-A-S-T. 

Supports Relational, Sequential, Hierarchical, and Random Access 

File Structures: has virtual Memory capabilities for Claat Data 

Bases. I0MS Lncl I provides an "entry level* System for defining 

a Data Base, entering and changing the Data, and producing 

Reports. IDAS Lml II adds the POWERFUL "6ERERATE" facility 

with an English Language Command Structure for manipulating the 

Data to create new File Structures, Sort, Select, Calculate, 

etc. IDRS L«mI III adds special "Utilities" which provide 

additional ease In setting up a Data Base, such as copying old 

data into new data Structures, changing System Parameters, etc. 

XOKS System "Usual - S24.9S IOK Itl I • f I CCF - 1129.95 

ISMS L»l It - f * CCF - IIM.9S 

ROUS Lvl III - F I CCF - SM9.9S 



ACCOURTIRS PACRAtES •- Great PlRfajl Computer Co. and Universal Data 
Research, toe. doth have Data Base and Business Packages written 
in TSC XBASIC for FIEF.. CoCo FLEI. and UmlFLEI. 
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TABULA RASA SPREADSHEET from Computer Systems Consultants -- 
TABULA RASA is similar to DESKTOP/PLAN; provides use of tabular 
computation schemes used for analysis of business, sales, and 
economic conditions. Kenu-drlven; extensive report-generation 
capabilities. Requires TSC's Extended BASIC. 

F and CCF, U - $50.00, w/ Source - $100.00 

DraACALC from Computer Systems Center — Electronic Spread Sheet 
for the 6809. 

F and SPECIAL CCF - .200.00. U - J 395. 00 

FULL SCREER IR'EKTORY/MJU> from Compster Systems ComsulUnU — Use 
the Full Screen Inventory System/Materials Requirement Planning 
for maintaining Inventories. keeps Item field file in 
alphabetical order for easier inquiry. Locate and/or print 
records matching partial or complete item, description, vendor, 
or attributes; find backorder or below stock levels. Print-outs 
in item or vendor order. MRP capability for the maintenance and 
analysis of Hierarchical assemblies of Items in the Inventory 
file. Requires TSCs Extended BASIC. 

F end CCF, U - $50.00, w/ Source - .< 100.00 

FULL SCREER MAIL IRC LIST from Coeapetor Systems Consultants — The 

Full Screen Mailing List System provides a means of maintaining 
simple mailing lists. Locate all records matching on partial or 
complete name, city, state, zip, or attributes for Listings or 
labels, etc. Requires TSCi Extmaosd (ASIC. 

F and CCF, U - $50.00, w/ Source - $100.00 

OIET-TRAC Forecaster from Southeast Media — An X8ASIC program 
that Plans a diet in terms of either calories and percentage of 
carbohydrates, proteins and fats (C P CD or grams of 
Carbohydrate. Protein and Fat food exchanges of each of the six 
basic food groups (vegetable, bread, meat, skim milk, fruit and 
fat) for a specific Individual. Sex, Age, Height, Present Weight, 
Frame Size, Activity Level and Basal Metabolic Rate for normal 
individual are taken into account. Ideal weight and sustaining 
calories for any weight of the above Individual are calculated. 
Provides number of days and daily calendar after weight goal and 
calorie plan is determined. 

F - 159.95. U - SIM. 95 
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* VARIABLE STORAGE I 
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IFWER 



FCC 



i sweat t' 



ISAM FILE VERSION 



INSTALL PARAMETERS 



« 

t 



« 
> 



1NPAR1 
1NPAR2 



W1B 
RMB 



INPAR3 RUB 



max NLHBER OF FILES 
MAX RECIRO SIZE 
tw< FILE SI2E 



COUNT 


RMB 


RECCNT 


RMB 


C1FPNT 


RMB 


LLIMIT 


RMB 


ULlMlT 


RMB 


AC C IX I 


RMB 


ACCUH2 


RMB 


ACCUM3 


RMB 


ACCUH4 


RMB 


BUFFER 





GENERAL PURPOSE COUNTER 
REORG RECORD COUNTER 
CALLER ISAM FCB POINTER 
LOWER RECORD LIMIT 
UPPER RECORD LIMIT 
ACCUMULATOR NUMBER I 
ACCUMULATOR NUMBER 2 
ACCUMULATOR NUMBER 3 
ACCUMULATOR NUMBER A 



«i«««««III««(I<««««II«««II««««II«««II«««««ll««II«««« 
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Dear Don, 

Hiving been involved with micro's eince 7b. (Tu an old 
timer I gueaa), 1 have wanted Co have a good reason to 
tall you how such your magazine has scant to Be and how 
It haa helped ma get where 1 em today, but that'a a long 
atory. Instead Til Just say thank you vexy much, keep up 
the excellent work. 

Encloeed are two upgradea that I made to the FUNCTION 
progress that David Goadby sent to you as shown on page 
46 of the FEB iasue of 68 K1CR0. I have up-dated the two 
progrsds to mske the FUNCTION program relocatable. It 
flret relocates lteelf under KEMEND, then moves memend to 
protect ltsalf aod then link into the input routines ae 
the original program did. The FUNI.OAD program flnda the 
function key tabia and loade a new table Into it from a 
text file. 

These are nothing dramatic but there are a couple of 
thlnga worth ootlng: first, the function keya will return 
whatever they contain, to the calling program. In case 
people nlaaed It, tbi* meana that a date can be put into 
a function and returned to a Basic or any other 
applications program. Tliia is in addition to returning a 
command to FLEX/S TAR-DOS ae the writer originally 
Intended. The sscond thing that la notable la that the 
programs can aavs lots of work if you are a professional 
programme raalam. Imuat recommend atrongly to 
everyone that the hour or eo to enter end eesemble the 
two program* le well worth the while. 

If you examine the FUNCTION program, you will eee thet 
the functlone thet I made reeldent are for XDHS, which la 
the greateet Datebeee Management eystem ever written. I 
em uelng it in en exteosLve commercial application and 
would be gled to write e review of it if you ere 
lntereeted. Also included la a a ample function set file 
called FUNSET1.TXT. I set thle version up eo thet I heve 
ell the tools available for essembly language programming. 

I did not take the time to optoadxe the above programs 
with the X'a end U regletera, but it le en eeey exercise 
for thoec lntereeted end would shorten them e greet 
deel. 

Best regards! t! 

Jim Cerwltz 
►7907 E wood Dr 
Scottsdale AZ 85260 
602-948*9304 



M 

n 



• I", 

.4 



* atiQCATAALi COCE VfHSIOH or 

* t-IHKjHlWl »UM. MUM 

- F|» 19*9 UMtCBO PO ♦* 

• AUTMOAt OOV10 amDQv 

• avIHD Iti JIM OEfttilTj 



avtc i*lc uuntc* 



ccoo 
cool 
cm 
cooc 
cow 

COtB 

CO**. 

CC£» 



■ *■* 

Ll«l *OU 

raiooa tou 

ca tou 

Lf tow 

v*J COU 

• ■■« LOCATION 

•ACM tOU 

MMdO tOU 

riwi tou 

■ I W. tOU 

DUlPI tOU 

OU'P£ too 

cmf sou 



-«d Itnt l*-»*th 



ClOO *0 
ClM AS 

CloJ 
CI 05 

ClOJ K 
CloA Of 

clot at 
Clll or 
cus m 
cue or 



rtach cou 

*»* ««"*v •» to •'•local* 

oea ti l < " <■ 

giaftf/ IRA MUM 



rtwe 

NUfiT AT 



HlTMIM FLt « •>•• 

•C£» tMCk>l»C* e*i«r 

•CDOJ -*«. *l*»-t *d* 

•C009 INCH fittd' 

•COOC lMOV v«tt«r 

9COQT DUTCH vtctw 

•COU OUTCM2 vnctfl* 

• i 0U * FLED PCALF 



iXMrttlM) (Motion ■•• 
FLEX UTILllr AREA 
t>ri»Ch 4f*OUTXj tMN 



C0*\ 

tO OOM 
COIO 

no oooj 

BD Of>*0 



CllC ICi 

o*o at 
ciai of 

Cl«i* K 
Cl*» 4* 

i in ■<- 

ciiiF 
cm 44 
ci-» or 

ClM » 

cijs a* 



•AC ClBi HO*/£ 



co» 

»TI 

LD1 

TITI 
LO* 



• TI 

IP! 
ttAJ 



oac ac o* 



FIUM-1 ami ©*-tQ FtEi IMC*, add"*** 

1MCHFL. PC R oJivft it 

OUTPl'1 got orlO OUTDl VfrKW 

QUTFL.PCH oav* or 1 4 FCt * OUrCH vMt«r 
FLPCN «Ot MMBrV MM) .AtO K 

«£«TQO-,PC« «*** orit •Hop 

• JltHp.l got ind Of POM O 

■QTAAT g*t «1«rl of oao 

TE«*>,PCH >«vt <Uit For r*r 

rua» got top of -,!■> wwt 

i,« i<*»r i (or pi»a--jiwf*—»i^ 

O. -V g a | 1*1 BVt* 

♦t-I **»• in «*w location 

TE*«PO,0Ca at *fWJ of *«i> 

KLOC iw, leoo for i«>t byt* 

ivjsTsi.Pca ••«• i*> p«o *i«f-t 

-!• I rwm, tOO O' «.*«#■ M O* V 

FLNEH «il tt » 0*«l*C\ BO" 



to CllD AC 

as ci*» *f 
u ci*3 ar 



ac C9 

CDOA 



COOC ACLOSATED MOW MXV InCM 



HOOKS DONE. COOC «MD **• 



CL41 J4 


To 


11AAT 


eSHB 


Cl«l »0 


AD O&io 




fflT 


Ci*r ** 


H 




tf« 


i l-.i MB 


*D 0*1) 


STOAT 1 


M 


Cl» •! 


o* 




c#«w» 


CI97 *T 


11 




MU 


CIS* «F 


AD OOOJ 


AtTUW* 


SIB 


CIS0 W 


1* 




MA.* 


CI9* « 






ftT* 



9,1 ***■ f^o«i*l*r* 

FLAfl.PCM diviftlonttUI <m? 

( LMl'l v>o 

CINCMFL.ACAT »« . **» »«r**l 

• TjuOOA niPi f inct kofl h»y» 

TAAPI vo* 

«6PVE i.PCH 

B. 1 ro^ovo^ r,(i.nrt 



66" Micro Journal 



December '85 



35 



M 


Cito 




H 


CI** 




** 


Ciu oo 




« 


CIM 




•0 


C1M 




11 


CIM 




*c 






■ 3 


Bftfft w 


k r« 


■** 


ClU IT 


OOAO 


■ 


CITO tl 


30 


M 


etis £T 


l'3 


IT 


GIT* lit 


71 


«« 


CI 7* « 


tj-i 


w 


CI 7* 4 1 


sc. in 


too 


CI 70 AC 


•C EC 


101 


■ l t A* 


■ 4 


i di 


ClOO 11 


OO 


ik. j 


-A. .. 


03 


:> * 


Cl*4 V 


•C DC 


101 


en? to 


DO 


M 


cm m 


SC 


MV 


ciu #* 


o» 


Id* 


L. L *U *> 


•c a* 


\m 


Clio #o 


OF 


IM 


LL-K AC 


*c 04 


LEI 


Cl« JO 


01 


IM 


cut to 


CO 


1 L 1 






11* 


ei*i ad 


tC CA 


i n 


CIK M 


n 


u* 


Ci*E *D 


*p 


LIT 


CtAO #S 


IV 


1 LI 


CIM IV 


BC H 


1 1 1 






l.«. 






I.'t 






i<;- 


CIAS 04 


• t 


in 


E|A7 AD 


VC OC 


1. * 


CIAA At 


•C H 


IM 


CIAO AD 


1Q 0* 


LM 


l- ik' m, 


SO 



111 Cl»C »? 



CDtTCn Cnffl 



COM 
t-Oi 

LQA 



OMMT OM 



• I(WJ|« n+r« *■» 



* Tunc* IM lOCatlOn IWInl«r 

d ivfnlDn f l*B 

t wiikmi Fi_t« fw*s »«iu* 

C aril PLES INCH cal I 

* OAID t\£M OnCh VECTOA 

LINOVl.PCB) Hal w.l cr.4.4 

•* ■•ni to *0}(? 

EDIT go iDLt 

V»I0 ■•« iddrf»t of *trin4 

■TABU 

FYAO.PCH *Ot divtrtlon r|* B 

IWMILPC« *«v* Iwtlim OF ■ — «» ch«i. 

0.1 1# t nl>| C*..r* 

•CB l« ll tr*a artf» 

CMKNIt ,< •»!. cvnllM 

FUaa.PCB tla«r divtnior. Flag 



COO 












*o* 


CMC 










*io 


C20C 


s* 


20 


• 7 


*5 




C4CO 


4E 


*5 


58 


4| 




CCC4 


5* 


•a 


2C 


3C 


All 


«c* 


OO 








Alt 












CU 


c«» 










£14 


ut» 


*B 


** 


49 


S- 




ceil 


CO 


SC 


to 




CIO 


CCEI 


00 








ci* 












n? 


CMC 










tin 


CJOC 


** 


4* 


se 


CO 



input Fro* g«vr a tor 



M* 



DIBPVi ** 

FLAO.PCB act I« N>r«ll 
STABTI o*t «*•*■ irfvl 

COUTFL.KMl W4 Chira to tl^lrdl 
■ il point tfe naiat a4t|rv 

a*. TUNH 



IINCMn,PCft> b«I funrtiM «o 

HPun 

VALID •*- If 1-9 t gai * 

BTABTI iprer 

■ ■AVE I . It* iiv* iftUr valuo 



*1» 
CC0 



UJ 
**4 



CCT 
... 
CM 
CJO 
til 
CJ* 
* n 

CJ4 



CJI0 n »i n u 

CJI* *NJ *S *j 5* 

C.1I0 K tO K •« 

C3|C *0 3* 
CUE OD 



Si 5S 4» v* 
CJftO OO 



FCC 

rev 

FCC 



0*0 
*«C 



nee 



ro 



/DI" ."WO ,C1L .DMfJ/ to 



7aLtf«c*lA«CE 
/LIST \/ c^— 



CJI* 
CM* OO 



0*1 ifaJL-TA 
/OUIT/ 



•>-* tMEl 'IfikJ 



CMS ZfEMD KBU 

fNP 



• OtSPCAV FtfCillM MiEVO 



ttlti UTiClEP 



toy LOfl 

JBFJ 
kOA 
/BN 
LOO 

LPl 



ill 


CIC1 


«o 


3 i* 


CLCJ 


•c 


11", 


CICS 


«0 



•A0 

8IAAT* LOA 



■ • r 

IOuTPI.PCN) *•♦-) to tt^alnal 
fNLM.PCA |«l function r,— aarr- 
IOUTFL.PCB) aOrM) IO ll^ 
• ' ■ 

tOwT'L.OCRJ **n«1 la »■•-• 
lOAWi.PC* pc it. I to latratlon 
O, » • V ai c*>ara 

■Cl ■■ ti | M | c**<-a in f wict lo** 

EOClt «o ,.i nt, Imcum 

tOuirL.PCd) m m p->t#.l ti 
C^OOP i«bd for «or« 

«CA f«rr» CM 



•ACM 


CCOA 


PBMCX 


C*)0 


CHKNK I 


Cl»» 


IN 


OOOtJ 


C"*J 


COC- 


DI0P1 1 


CIVf 


ocaot a 


Cl» 


OONE 


cito 


ID) T 


cm 


edi r« 




COLOOO 


ClOO 


EUME if 


ClCT 


IB«0« 


C*oo 


f IM») 


CM* 


MNP* 


COUC 


riNPT 


ciri 


*UW 


CIU 


^V«« 


CCM 


f NU« 


ow 


FINCRT 


Cl»* 


(M1MTI, 


ctu 


L> 


OOOA 


LINEi 


ovtca 


MKMtOP 


CI4r4 


#-ovi 


CMC 


MUOTIIT 


CIOQ 


OUTFL 


CtU 


OUfPl 


CO** 


OUlOJ 


CDI* 


KfiOP 


CIO* 


NELOC 


Clcfl 


RFTUMM 


CIS* 


«M 


ClOT 


S1AM1 


CL«H 


STAAT 1 


cini 


•TAUT* 


tlCJ 


tttA*T/ 


Cjoo 


ttm.t 


CariC 


it:m> 


ClO-3 


IIMAl 


tl*A 


TNIOOft 


•*xr» 


VAL 10 


ClCF 


VH 


■UAJ 


WDAHB 


CDOd 






?^k«u 


Clan 



















IM 


ClCT 


M 


i*o 


ClC* 


OO 


i*i 


CICC 


AO 


1*4 


ClO 


• 1 


14] 


CIDI 


2* 


L*- 






1*S 







|*f 


t LP* 


« 


IM 


C1DB 


L-i, 


in 


C100 


M 


IM 


CIIO 


a ? 


l%i 


ciu- 


•1 


IM 


cit* 


tl 


IM 


Cltt, 


-., 


:-,* 


CUT 


M 


IM 


cm 


*4, 


t« 


Cl» 


AT 


M 


CUD 


M 


i*. 






IbL 







Iti 


citr 


AT 


iu 


C|<1 


• I 


Ml 


cira 


*i 


1 T,. 


CIFT 


• i 


i n 


cir« 


«* 


i ?*■ 


C1P0 


*o 


i 'j 


ciro 


3D 


1 ■* 






i m 






IFi. 






in 






i -» 


cni 


C* 


ITT 


C*oj 


JO 


]•■■ 


CSO* 


30 


1*1 


c*o* 


BF 


IM 


cto* 


1C 



]«4 C*00 IA 



• nOm Ch fOm 

EONEfT LOO 
JB" 



lOWTrL.PCAl a«n* to tail 
J»" tlNO^L^PCtt) Oat oOHO" 

CMPA ■• R M«nt to f#p]* c «f 

•NE BTOPITt AO ••* Kit 



• fHTCA ilHIKU 



LDA «■ a 

iMI fOutPl.PCA) ~-ln It 

LOl lVhVCl P PC* point to **•*-• it 

LDtl Hl^l 1 ■•■ lina U><H»-I 

t*JX* JIR tlNC»«L,PCIi> #-t ef>*r« rr-t— 

■ TB O, j * »*v» it in tabic 

CMPA KH .«« tt . CM* 



OCCB 



en* t>* Fwra 
inwvl CO 



a TMll ROUT tnt VM.1OB1E0 THE HMJ 

a NUMMff PMO MTUKMt WITH X PCINTIMO 

• TO THE ATtlNd A0O0EI0. 



00 FTV VOL ID 



BtO FNUH.OCN 

CMPA o'O 

Ml EHMW 

CAWI .-• 

•Ht C*(KM 

"JPA •• I 



•tvf function no 

!•«• lh. n 0? 

(0 not a I loajod 

|r*ittr than 4» 

» not *l loacra 

•IT TO BlNA*r-l a4J u «i 



A* tnBLE.BCO point to location an t<iOla> 

OV I INEL TO IMMX l*nO TAf4.E 
TO I TO POINT TO EWTa-r 



nr 


C*l< 


N 




ccoo 


na 


CCIS 


AO 




tD rr* 


IM 


C#l» 


33 




0* 


l*o 


Cll* 


M 






Ifl 










IM 










If] 










it* 


CCIC 


so 


a* 


40 S3 


IM 


ctto 


00 






:■»* 










|M 


«•* 








IM 


c**» 


4* 


o 


4* 4V 




c*»* 


St 


•s 


*o sc 


IW 


CC«C 


CO 






COO 










«Ol 


C1EC 








M 


CMC 


w 


SO 


44 41 




crro 


s* 


•s 


CO sc 


tM 


CtA 


00 






ro* 










»»» 


c*»«. 








CO* 


C*9« 


*7 


• 5 


4* aS 




ccv* 


0» 


*l 


3* «3 




cue 


CO 


sc 





CLC 



JOB 
«ULA 
BTB 



FCC 



CCC 

rem 




• «i*a etiara in *CT A 
BMC* |*l 1£l MCliAKf Chart 

lOUTFiL! PCB3 oajno to tor. 

rtllOTI CflPI 
r«t ur"n 



• 

,: 
>i 
■> 
>' 

M 



LHlWL*ruil 



JK l*«L-1B 



S/ C u n il ■ fH * 



« 




id 


ClOO 


11 




1* 


ClOO CO 


u 


CIOC oc 


14 


CIOJ BE 


» 


CIO* to 


3* 


tio* cs 


JT 


CIO* B* 


3* 


CLOO AT 


3* 


CIO* BV 


♦0 


CMC ID 


• 1 


CI IS C* 



a BUTHC«B« 

a CBtnrfDi 3-«*-» 

* BCVIUD aW* J1H cwmhim 



41*1 linaj l-. w i:. 



OFFBET TO TeyfcjE 



Cll' M 

CI IB C* 

C1IC JA 

CUD AT 

CIC1 OF 
CICS I 

cm ioat 

CIK Ct 

I I !<■ JA 

CtJI A* 

C I Ji c* 
CI37 CT 



C 14 I J 

CI43 • 
CIW I 




C0*L1N.PCK 

•t 
L1NBCT.PCB 

ACAO TAaLI FBOM 0t*H FILE 



L tjfc 

■ TO 



CAM 


AEAOlA 


Ooac 




49 




■0 009t 


■ TOALP 


BO 00*9 




OC 





LOi 



•FCB 



B.PCB 

EDFLIM, PCB 



** Cl*D A7 

*T CI*F * 

*• cifa *i 

W CI99 H 

W CIST to 



CIS* At. 

CIS* *1 
CI30 C* 




LINE PFXIIIIM1 



36 



Oaoember '86 



'68' Micro Journal 



78 


El*Vl 


IV 


SO O07I 




BTI 


OJflPOS.PCfr 


79 


CI6T 


C6 


« 




LOB 


• LINIL 


S* 


Cl*9 


3H 






AUK 




S; 


Clfeft 


W 


SO 006b 




STl 


E0*l IN.PCft 


M 


Cl« 


U) 


60 eOfca 




DEC 


l inner, ecu 


U 


CI7i 


e« 


C7 




■ME 


wnoiP 


#■> 


ClT«J 


a* 


O* 


END If 


LOB 


ss« 


•5 


CI7B 


H 


ca*o 




LOl 


■ FC6 


M 


CIT* 


or 


s* 




»TA 


». I 


*7 


CI 7* 


M 


d«o* 




Ji>« 


FNS 


— 


C17C 


H 


03 




M 


tRBQH 


• J 


Cl*0 


7f 


CD03 




-fMP 


mums 


90 














91 








• ERBTJ* 


*>MCC BD 1 M 


92 














*J3 


CIA4 


BO 


CDJF 


EHAC* 


IFifl 


APTEHfl 


*»* 


: Lit 


Hfc 


Ci*-.-i 




15ft 


FHSCLS 


« 


Cl4» 


7£ 


CMS 




Jms 


MOBME 


•» 














97 








• THE fCkJ 


98 














91 


CIK 


OE 


■P Q9Q9 


Eenosi 


COM 


MSB l< PC A 


IOC 


CI90 


HD 


CDI« 


EMtEKI 


JBR 


Pr3T»WG 


LOJ 


CI93 


eo 


OF 




Httfi 


CHDIT 


LOJ 


CI93 


«t 


ao ooie 


ERRORS 


LP" 


WO*, PC* 


163 


CI99 


«k> 


*3 




DRft 


ERAEir 



C19P *>C *S 33 S3 

C1W *l»fl « 

C1R7 IS tf 34 9f 

U I •**■ *• *3 *. < tO 

CIBP »* tf M « 



• ENAX1H OTHINOe 

moi rcc /teas tham «» entries folhd/ 





i if ■ 


44 














luB 


Cl»* 


OO 


OB 








ti i- 


»». •« 


t<w 


ClSt 


f>« 










1 1 > 


** 


I 10 


Cl»7 


%e 


*9 


*e 


*>s 


•TSG* 


F" 


/LtNE iscCEoe *»> CHARfje-retrt 




cisa 


20 


« 


tso 


«1 










CI*F 


*>5 


43 


«* 


5J 










CIC3 


«x> 


.»* 


30 


*o 










CIC7 


O 


40 


SI 


a* 










C1CS 


*1 


4.3 


S» 


«s 










cicr 


54 


5J 












1 1 1 


CJOI 


00 


k» 








f« 


• d. ta 


l it 


ClOJ 


0* 










•TB 


• J. 


. LJ. 


















I- 












■ DOTH 


Storm oe 




115 


















116 


CIO* 










ItfLIN 


HWJ* 


2 


llf 


Lift. 










EOF me 


<m« 


2 


1 LB 


ClM 










1 IPHF l)h 


HMB 


f 


llf 


CIDft 










UNECT 


CTOi 


I 


:- ■ 


. LD1- 










roo&rn 


ftn» 


I 


kl 


















i?e 














CMO 


■ I CRT 



EflftO* iB> DETECTED 



J. 00*€ OIT % 

£.00- LI ST \ 

3.00*000. \ 
». OO»0B 

5.«o-e i I8T 
t>.*0-COc>tf \ 
7.00-j ir*£n£>o> v 
fl,O0-t> Jl«S(W#1l- 
9.9«-S 



5r)1«a THBL.Ci 

curpOs ClOo 

ERROR C183 

t-m o-w* 

LINENS CI 9 

REACH P CIJIi 

flIOWP EhiJ 



ENOIT Cl)< 

ENRORI Cl«C 

FKSCLS S403 

MBOI C19B 

RPTCRN COST 

lOH'A CI OB 



EDFUJ» CIO* 
ERROR* CI93 
0CTF1L CCWtJ 
MB03 C1B7 

BCIEff CB*3 
vN OOO* 



EOTI09 C106 
FCG CfrMl 

LllCCt ClO* 
OFFSET OOD3 
BtORT C10O 
**s(WS C003 



ENflC XT CI 9* 

(Ii«l C0o9 

LIWL 0O*0 

PBTRNO CD1E 

EIRfit CI03 



Dear Don, 

Thank you for your lat+.*r regarding my autniaoion to 
6fl Micro. I also would Ilka to thank you for axtandlng ■/ 
»ubacrlptlon. 

Since tba tlsa 2 aubaittad tha raviped veraion of 
rUttCT20N.CMD to you, I h*va addad ■even] upsradea that raadara 
BAy want to hava. I will iteaixo thaa and if you faal there 
sight be any lntereat> 1 will aand you tha naw veraion to 
publlab. Pirat I added a check to aae if fWCTlOK was already 
raaidant and if ao. a a«aaage la printed to tall tha operator. 
Second I added an autoautic featuxe to read tha data froa the 
ayetea Month Day Year registers and place thla date a* an ASCII 
value into function #9. Third, at the requeat of a friend that 
had a apedal need, 2 added the ability to imbed the '»* cherstvc 
In th» function and hava it perform tha ■■■■ aa Bol. notaally 
-i*. Laat, I noOified the the way the edit function operates. 
To edit one of the functions, you enter TA8, then the function 
number* Tha function which la atored will then be displsysd, If 
you wish to change it, you juat type In tha daaired statement. If 
you change your mind, entering a <Cft> will abort tha adit. Thla 
wa» done because X could never resenber to enter an "R" to 
algnify replacement before sditinq. 

Tha second reeaon I ait writing results from your atatesent 
that you would appreciate any additional material that 1 hava. It 
occurad to me that aone readers might be interested in the 
Payroll syateA that 1 ui developing using X0H8 . It would be 
difficult, if not Impossible to just put it together aa a big 
article and have it make aenae , However the thought atruck me, 
that if you %ere willing to give me a little guidance, I could 
turn It Into a aerlea of artictaa on how to implement a rather 
difficult subject using XdkS and AUTOTASK. I have no idea •■ to 
the ramif icetlona of what 1 juat aaid but at laaat it would be 
interesting and would be a chance to ahare soma knowledge with 
other $B Micro readers. Z hava a lot. of aoftwara using these two 
programa such aa a Check Register program to organise records by 
espense type and alao balance a your checkbook 

Juat for the record* I «a uaing the PT-69 with my aoftware 
in a vertical market altuatlon and have been more than 
sstiaflad with Peripheral Tachnology'o system. Alao Fredrick 
Brown, the owner, has bean of great aaaiatanca to me and the 
hardware has been the moat reliable 2 have aeen. 

If you would be interested in persuing the thoughts above. 
please contact me either by letter or by phone. 



please contact m* eithe 
—*^2im Csrvlti «^-_y 



7907 I. Wood Ml 
Scottadala At 65260 
Huaa ■ 602-94S-9304 
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Expanding The MVME201 To 1 Megabyte 



by Ray Robinson 

Speech Research Centre 
Hacquarle University 
Nor th Ryde 2113 
NSW Aua trel ta 

INTRODUCTION 

The MVME200 la a VNE bus 6«k byte 
■eaory card nade by Motorola. The MVME201 la 
the ««ne card, but with 256k byte capacity, 
due to 6*Kxl DRAMS (Dynaalc RAMS) being 
used Instead of 16Kxl DRAMS. My VMF. bus 
ays ten needed sore neaory, ao I upgraded 
the card to 1M byte by using 2S6Kxl DRAMS. 
Here's how I did It. I call It the MVME201-1 

ADDRESS 

The aemory la arranged physically aa 
2 banks of 18 chlpa each (36 total), giving 
a 16 bit word and 2 blta of parity. 

These 2 banks are arranged aa aa k pages 
of naaory 16 blta wide and Individually 
addreaaable by * base addreaa patch areaa. 
The site of the page la aet by the DRAMS 
used, 16K for «I16 (l6Kxl), 6«K for «16« 
(6aKxl), and 2S6K for 4 12 5 6 cMpa (2S6Kxl). 

To aodlfy tht baaa addreaa selection 
for 256K pagea, add eight 10K resistors to 
the gatas U«5, U 5 1 , U55, and U59 on the 
'63' Micro Journal 



Figure 5-2 aheet « of the MVME200/2O] 
users sssnusl. Alao aee Dtagren 1 (below), 

REFRESH 

The 256Kxl DRAMS require Identlcle 
refreah to the 6«Kxl DRAMS and ao no 
nod 1 f lea t Ion a are required. 



MULTIPLEXING 

The MVME200 ssul 
to 7 for the 16Kxl 
nul tl plexea 16 add 
6«Kxl DRAMS. For t 
18 addreaa lines m 
the aux for MAS ( t 
256Kxl DRAMS), I 
added 2 res 1 a tor a 

The addreaa 1 1 n 
gated with algnal 
lover ted 100A a lgn 
U<S 1 need a a IK pul 
f rose theae 2 ga te a 
through a 2 2 ohan 
the MAS addreaa 11 
or called VBB on 1 
below. The a Igna 1 a 
found on Figure 5- 
/ 2 1 users aanual. 
and LA17 are on ah 
for MAS 1 a on a hee 

December '85 



tlplexea 1« addreaa lines 

DRAMS. The HVME201 

reaa lines to 8 for the 

he 256Kxl DRAMS, we need 

ultlplexed to 9. To add 

he 9th addreaa line to the 
aed 3 apare gatea and 

ea LA 1 6 and LA 17 are 
100A and 100A* (an 
al), by U80 and US 1 . 
lup resistor. The outputs 

go to U69 and then 
matching resistor to 
ne on the DRAMS (pin 1 
6Kxl DRAMS). See Dlagraa 2 

100A and 100A* are 
2 sheet 6 of the MVME200 

The addreaa lines LA16 
eet 5. The destination 
ta 2 , 8 , and 9. 
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PROCEOU 
Reao 
pul 1 up 
by neat 
aide of 
Co pin 
ease fo 
new aux 
U69 uhe 
out uhl 
and ben 
checked 
black w 
c hi pa a 
Che ga c 
Che boa 
rea I a Co 
la loca 

Add 
Ul , U6 , 
U36, U3 
U62. Th 



RE 

ve 3 
real 
ly e 

the 
16 ( 
r ch 
. th 
re c 
ch p 
c un 

aga 
1 reu 
nd a 
ea , 
rd. 

us 
ced 
elgh 

Ul 1 
8 , U 
ey a 



6 ORA 
a tora 
older 
boar 
VCC) 
e pul 
e spa 
hecke 
Ina u 
der c 
In fo 
rap w 
older 
again 
One e 
s sol 
near 
teen 
, U13 
42, U 
re »7 
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PATCHING 

Ensure Che patches W5 and W2 are In, and 
U3, R6, W4 , and VI are open (Figure 5-2 
eheec 2 HVME200/20I Ueera Manual). Theae 
configure the DRAMS and are located near 
Che front panel. The 22 ohan realacor froa 
the new aux (HAS) goaa Co Che Junction of 
16 and W4. 

The 4 aeaory pagea are ee c with paccbea 
J2, J3, J4, and J 5 . Dlagrsa 4 ehowa J2 
pacched for a baae addresa of 000000 HEX 
and J3 for 040000 HEX. The ocher 2 pages 
(aet by J4 and JS) are shown disabled. 
After teating, Che extra 1/2 aegebyte can 
ba plugged In and enabled. 

The other patchea should remain 
unchanged. They are (as factory aec) 
Jl, J7, and J8 connecced, end J6 open. 

ERRORS 

There are bypaaa capaclcori on Che old 
VBfl line, now MAS addreaa line. They are 
C5, C14, C15, C2S, C27, C38, C47, C54 , and 
C61. Plnd cheae and reaove chea. Not all 
aay have been flcced. Plgure S-2 aheec 2 
of Che MVME200/201 Users Manual wrongly 
ahowa all bypaaa capa on the * 5 vole line. 

Figure 5-2 aheet J of Che aanuala shows 
wrong pin labelling on one of Che aux 
chlpa (U29). Ic should be U29 pin 3, LAOS 
and U29 pin 6, LA09 and U29 pin 10, LA10 
and finally U29 pin 13, LA1I. 
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P'w»Z 013 
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ffWT PIN 
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TE 

ST 
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Che 

lnl t 

1 t f 

(MAS 
you 
with 
look 
MAS 
PFFF 
and 
la u 
1 
aega 
now 
ASSE 
1/2 
All 

and 
J5 a 
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Using FLEX/Star-DOS 



WHERE DID WE LEAVE OFF? 

Try .i« 1 aay, 1 Just can't suea to get these articles out 
any tnster than every other month at best. 1 la Involved 
In several major projecta at work so I'm pretty tired of 
coiputerb when 1 get hose. This hse happened to me 
beioie, and I know It will paaa. but In the meantlae 1 
won't oe able to get theae articles out monthly. Pleaae 
bear with ae. 

Aa 1 recall, t promised to cover CoCo printer driver 
customization and 1/0 redirection In FLEX. I'll get to 
printer driver customisation this so nth, but because of 
aoae other things I need to cover I'll have to ask you to 
wait tor Information on 1/0 redirection until the next 
article. 

MY OBJECTIVES 

if you've been reading Kon Anderson's FLEX l/SEKS NOTES 
(yuu should be) you know that he la starting to review 
sobs bsslc FLEX concepts. We ere working Independently, 
end we sre writing for separate sudlences. Froa what he 
has been covering In the psst few aonths 1 think thst 
snyone who needs to learn how to progrsa under FLEX 
should study hie coluane (1 do). 

The aaln group of people t aa trying to help are new FLEX 
users who are aoaewhat fsalllsr with RSDOS or another 
alcrocoaputer system. 1 slso hope to cover enough 
Information to help prospective Advanced Operating Systea 
buyers choose between FLEX and OS/9. 1 don't hsve OS/S 
yet, So I can't really compare them, but I can present 
FLEX for evaluation. 

If you hsve sny questions about FLEX, drop ae a line at 
the address listed st the front of this article. If you 
went s personsl snswer, send s stamped and self 
addressed envelope, t can't proalae quick turn around on 
letters that want peraonal reaponaes, but I'll try to 
cover questions I get In these srtlcles ss soon ss 

p01*Sl0U . 

WHAT TO BUY Wl 01 FLEX 

1 waa talking with a (rlend of alne recently, and we were 
coaparlng notes on our computer systeas. He has s CoCo, 
but he does not use r' LEX , Stsr-DOS, or OS/S. He 
wondered why 1 bothered with FLEX, and what t could do 
with FLEX thst he couldn't do with RSDOS. 1 showed hla 
some of the things 1 do now, snd some of the languages 
available under FLEX. My Irlend Is s something of s 
language freak, so he became much more Interested sfter 1 
snowed him some PL/S listings In '68'. 

Because FLEX Is s asture operating systea with s wide 
vsrlety of languages snd utilities available to you. An 
excellent word processor (STYLOCRAPH) snd spread-sheet 
(DYNACALC) sre reasonably priced. Almost sll FLEX 
softwsre will run on your CoCo. You csn use your 
CoCo/FLEX syatem to learn s new programming language, 
develop utllltlea or appllcatlona software using thoee 
lsnguages, do word processing, sccountlng, keep track of 
data, and so on. 

I use ay systea for word processing, record keeping <1 do 
soae contract programming), and hobby related 
programming. 1 have K-BASIC (an excellent compiler), and 
I've stsrted several projects In K-BAS1C (all of which are 
on hold, unfortunately). Since I've read ao many good 
thlnga about PL/S in '68' lately I'll probably aave up 
eaough to buy PL/9 for ay next language, 

Aa you can see, 1 sa sble to do everything I need with ay 
little old CoCo (now that I've got FLEX). 

FLEX and Star-DOS are both aold In staple packages. The 
operating systea and the Utility Command Set (or UCS, I'll 
explain that soon) are about all you get. The CoCo 
veralona of FLEX and Star-DOS Include soae sddltlonsl 
utilities to allow you to copy files to snd from your 
RSDOS dlsKs, 



If you plsn on tinkering with FLEX, or doing sny serious 
saount of programming, you will probably want an editor 
and assembler. FLEX can be purchaaed bundled with an 
editor and assembler. Thst's the FLEX CoCo SR. package 
that CP1 sells. it's whst 1 use, snd I don't regret 
spending the extrs money to get the editor snd 
ssseabler , 

You hsve to decide whst you wsnt to do with your coaputer 
before you buy FLEX. 1 csn't think of too many things 
thst 1 can't do with FLEX, but 1 know that there ere a 
few things thst 1 csn't do with RSDOS, The wsy 1 see it, 
those of us with FLEX on our CoCos live In the beat of 
worlds. Not only do we heve sccess to extensive 
programming and applications softwsre libraries (under 
both eysteae), we slso hsve one of the nicest gsee playing 
coaputers sround. No one with s GIHIX Is flying Toa Mix's 
P-S I unless they slso hsve s CoCo! Their GIHIX nay be 
fester than our CoCo, but It doesn't have the graphics we 

THE UTILITY COMMAND SET 

This section Is s summary of the FLEX Utility Coaaand Set 
(UCS). The UCS la a standard aet of programs to handle 
dlak file management functions. 

The standard commands In the UCS that TSC provides and 
their RSDOS equivalents are 



FLEX 



RSDOS 



APPEND 


- 


ASN 


DRIVE 


BUILD 


- 


CAT 


D1R 


COPY 


COPY 


DATE 


- 


DELETE 


KILL 


EXSC 


- 


1 


- 


JUMP 


EXEC 


'LINK 


- 


LIST 


- 


NEW01SK 


0SK1NL 





- 


1* 


- 


"PRINT 


- 


PROT 


- 


••qCHECK. 


- 


KF.NAME 


RENAME 


SAVE 


SAVEM 


STARTUP 


- 


TTYSBT 


- 


VERIFY 


VERIFY 


VERSION 


- 


XOUT 


- 
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*L1NK Is celled MAKESYS In the F-HATE FLEX conversion. 
•*PR1NT and QCHECK are Included with standard FLEX, but 
they don't work on most coaputers, so they aren't 
svalleble with the '-MATE conversion.: 



Obviously the UCS hse severs!, coaaand a that have no real, 
equivalent In RSDOS. Moat of thoae coaaende that are 
unique to FLEX will be covered In later ertlclea, alnce 
they relate to topics such aa I/O redirection, teralnal 
con'lguratlon, and debugging. 

All of the coaaanda In the UCS are DISK RESIDENT, This 
aeans that the aust reelde on the SYSTEM DRIVE (I'll 
explain that In the next article). Every tlae you uee a 
coaaand froa the UCS It la loaded into a special section 
of aeaory In FLEX for execution. This allows the UCS to 
be expanded (there are several cosnunds thst come with 
F-MATE FLEX as psrt of the UCS thst sren't available on 
other systeas) and modified (recent laauea of '68' have 
presented enhsneed versions of the CAT command. 
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Because Che coiunda auat be loaded froa disk every cine 
they are used there la a alight delay In their execution. 
Thla la made up for by the aubatantlal aavlnga In memory. 
FLEX leaver hHK of aeaory available for user programs. 
RSU0.1 Usiki y>n with leaa than 32K. 

This dynaalc loading of utilities la not unique to FLEX. 
OS-9 loada commands Into aeaory unless they have already 
been loaded In. OS-9 leavea thoae coaaanda In aeaory 
until you aak him to reaove thea. This can cause aeaory 
to get cluttered up rapidly. Both ayateaa are a 
coaproalae for 8-blt computers, but both actually work 
very well. FLEX la certainly easier for ae to use than 
MS-OOS on ay pc at work. 

There are a couple of 128K upgrade klta available that 
allow one. 64K bank of aeaory to be uaed aa the stsndard 
64K aeaory of the CoCo, and the other 128K bank to be 
uaed aa a RAH DISK. Thla allows commonly used utilities 
and data (ilea to be loaded Into that 64K. When they are 
needed, they are loaded Into memory froa aeaory. Thla la 
done at Incredible apeed. Both FLEX and OS-9 level 1 
benefit greatly froa the uae of a RAM DISK. If I ever get 
one, I'll let you know Juet how faat It really Is. 

USINC A NON-STANDARD PRINTER 

FLEX will let you define your printer one tlae, and It will 
remember how your printer works even after you turn off 
your cumputer. Thla la great for people like ae who have 
non-etandard prlntera. 1 kept forgetting to change the 
baud rate In RSDOS, (3 POKE lnatructlona, 1 finally taped 
them tj ay monitor)), which waated paper and drove ae 
crazy. 

Once I got EL£X I discovered that I would never have to 
POKE again, I'd Juat have to change the atandard printer 
driver, ONCEI 

A printer driver la a aachlne language program that hooka 
Itself Into the printer output routlnea of another 
program, auch aa the FLEX operating ayatem, insuring that 
character! aent to the printer are uaable by the 
printer. 

The atandard FLEX printer driver la naaed PRINT. SYS. 
Each computer/printer configuration running FLEX requires 
It's own PRINT. SYS driver. The code In PRINT. SYS la 
loaded Into atandard memory locations, and any time a 
character la aent to the printer. It la routed thru the 
PRINT. SYS code, 

Those of you who have a non-Tandy printer will probably 
need to modify the PRINT. SYS driver. The driver aupplled 
with CoCo FLEX Is dealgned for prlntera that are 
connected to the CoCo thru the SERIAL I/O plug on the 
back of the CoCo. If you have a parallel printer, but 
have It connected to the CoCo with a aerial to parallel 
converter you can uae thla driver. II you have a parallel 
printer Interface that pluga Into a Multl Pak Interface 
or a Y-Ceble along with your disk controller you are 
going to have to work a little harder. You will either 
need to contact the maker of the Interface to aee If he 
haa a FLEX printer driver, or get enough Information to 
write your own. 

Since 1 aa ualng an OKIDATA MX 82A which haa a RS-232 
Interface that operatea at up to 1200 baud, I needed to 
change the PRINT. SYS driver that coaea with the 
FLEX/CoCo package. For ae the change waa alaple, but I 
am an experienced aaaembly language programmer. The 
change I describe here nay not be I0OZ accurate for other 
FLEX ayateaa, ao If you have or buy another version, don't 
expect thla to work the first tlae. The concepts are 
the aaae, but the details may be slightly different. 

PRINT. SYS la a binary file. It la the output file created 
by aaaeabling PRINTSYS.TXT, which ahould be Included on 
your distribution disk. There are only two possible 
changes to make. The flrat la to change the baud rate 
(character transmission apeed), and the aecond la to 
change the nuaber of blta per character. 



When you edit the PRINTSYS.TXT file, find the atateaent 
that contalna 'ORG SCCCO'. Thla tella the aaaeabler to 
place any aachlne code generated at addreaa SCCCO. U 
you read your FLEX manual, you will dlacover that SCCCO la 
the atandard addreaa for any printer Initialization code 
In KLKX. Here we will set the bsud rate snd bits per 
character for the aerial output routlnea that coae with 
FLEX and are uaed by the atandard printer output routine 
In FLEX. 

The flrat two Instructions after the ORG ahould look like 
thla: 

LDX »$0057 
STX SE2I6 

There nay be aone commence on thoae lines, but they 
should still contsln thst data. The $01)57 la the value 
that controla the print apeed. Thla la the default for 
600 baud (which la the CoCo'a atandard apeed under 
RSDOS). To change that to print at 1200 baud, Just 
chsnge the $0057 to $0029. 

The valuea for several common printer bsud races are: 

BAUD VALUE 

110 $0ICA 

300 S0UBE 

600 $0057 

1200 $0029 

2400 $0012 

9600 $0001 **»See Note*** 

Pleaae note that I know of no prlntera that could be 
economically connected to a CoCo that can print 
charactera faat enough to make the 9600 baud rate 
practical. I have aeen thla aettlng uaed In RSDOS with 
parallel printer interfacea, but the prlntera don't print 
960 charactera per aecond, ao that aettlng doean't do all 
that much good. Thla aettlng la not documented in the 
FLEX CONVERSION documentation from CPI. I have Included 
It for thoae of you who are uaed to running your prlntera 
thru a parallel converter at 9600 baud. 1 DON'T KNOW IF 
IT WILL WORK. If you have a printer buffer this aettlng 
may help you. If it works. 

The next two lnatructlona ahould be: 

lda Co- 
sta SE215 

Theae lnatructlona aet the number of blta per character. 

The ASCII codes uaed by your CoCo (and all microcomputer 
that I know of) allow only 7 bit charactera. The elgth 
bit la frequently Ignored when it la transmitted froa a 
computer to a modem or printer. Many modern prlntera 
allow the elgth bit to be uaed to generate special 
graphlca charactera. If your printer doea ao, leave 
these Instructions alone. If you hsve sn older printer, 
it msy only accept 7 blta of data. The elgth bit will 
only confuae It, caualng you to get garbage on your 
llatlngs. If that la the caae, change the 18 to a #7. 

Once you have changed the PRINTSYS.TXT file you can 
aaaeablo It. If you don't get any errors you can uae 
COPY (If you have two drives) snd RENAME (sny 
configuration) to aake your new driver accessible to 
FLEX. 

For example; 

C*PY 1 PRINTSYS.BIN 

RKNAMa; 0. PRINT. SYS 0.PSINTSYS .OLD 

RENAME 0.PR1NTSYS.BIN 0. PRINT. SYS 

The first line moves the ssseabler output to the system 
drive. If you don't hsve two drives, your output file Is 
already on the systea drive. The second line aavea the 
original driver, and the third line enablea the new 
d rive r . 
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It you have made It this far, turn on your printer and any 
Interfaces you need, and enter the command "P CAT'. This 
will send a disk directory listing to the printer. Lf It 
worked, everything la *K. If the listing la garbled, 
review your changes and try again. 

ENOUGH IS ENOUGH 

That's enough for one article. Next tlae 1'U explain 
SYSTEM and WORK drive assignments, and 1/0 redirection 
(that's the 1. 1), and P commands). Until then, keep on 
confuting KLKXlhly, 



over. In the meantime, here's Plan 8. I've been saving It 
back for Just such a tine as this- NOT because It's an 
Inferior product... but because It's so HOT a topic, I 
had to let It sizzle for a good while before presenting 
It. 

Friends, the subject today la The Disk Drive. Not Just 
Any Disk Drive, mind you... but rather a SPECIFIC Disk 
Drive. Maybe (even) a Dlak Drive for YOUR CoCot 
Of course, there are plenty of reasons to stay away froo 
dlak drives for CoCo, Reasons like money... and the Joy of 
listening to endless hours of 1300 baud program tapes... 
and money. . .and the atralghtforward qualities that only a 
cassette possesses... and money... and money... 
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Let'a take a good look at the money angle. Maybe there 
exists more than the price of the dlak system. Maybe 
there's another side to the question altogether: to wit, 
the price of your TIME. Let's face It, If the price of our 
time were of no Importance, we'd ALL be tying knots In 
string to count our cattle. (That's Just the tip of the 
cultural Iceberg.) Don't mlaunderstand ae: there are MANY 
tinea when slow Is definitely superior. I think you'll 
agree with me that the time required for a program to 
load, or for CoCo to search through 90 minutes worth of 
tape for three or four bytes of critical data AIN'T one of 
*eol Even If one's only use for CoCo Is to play gamea (an 
Important activity In some situations, I've learned... yes, 
frlenda, 1 may be gaining In softness what 1 lack In 
foolishness!) 
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CoCo User Notes 



by Carl Mann 

30 Warren Ave. 

Amesbury, MA 01913 

CoCo Dlak Systems, Part One 

or 
What Put* the "In" In "Spin" 

It had to happen aooner or later. Everything 1 Intended 
to write up In thla month's column went wrong! The 
SOFTWARE has got BUGS. The HARDWARE has got BUGS. The 
WETWARE even has BUGS. It's the summer heat In which I'm 
writing. Little BUCS are actually hatching out of the 
office carpet! 

Oh, well... By the time 1 see thla In print, it'll all be 



Oh, yea. Dlak system* for CoCo. As easily done as aald, 
actually. But (for the sake ol us folks that don't chase 
flying bit-buckets for fun, and wouldn't wish to be 
intently quizzed by a rabid tech-weenle on the finer 
points of peripheral access overhead time In relation to 
overall mapped register concatenation coordinates) let's 
back up a little, What goes on In a dlsk-baaed CoCo, 
anyway? 

Not much different, at least on the surface. The blggeat 
difference la that whereas the cassette tspe moves In 
slow motion (I and 7/8 Inches per second) and only moves 
from left to right, the disk goea around and around at 
the speed of 300 RPN. Now let's see... floppy dlaka are 5 
1/4 lnchea In diameter. That tinea pi la a circumference 
of about 16 J/2 lnchea. Let's back that off to 15 Inches 
In deference to the spirit of American Conse rvat lam . 
(Alao, and more Importantly, because doing so Is closer to 
the truth. You'll see why In a minute.) Now, 300 tinea 15, 
divided by 60 aeconda in a minute... why, that's exactly 
75 Inches per sttcondl That'a (75 divided by 1.875) vxactly 
40 tlmea faster than cassette. Pretty good, no? 

What this neana la that the BASIC program that took 40 
seconds to load from tape will be up and running from 
dlak in about a second or so. A machine-language routine 
that loaded from caasette in ten aeconda takes less than 
1/2 second from disk. And another thing: the data may not 
be on the cassette, but CoCo doesn't know that. Misspell 
a filename, or forget which tape la which, and CoCo will 
stare at you aa long as you care to atare back. With 
dlak, all the files are organized In a "directory", like in 
a little telephone book. Each directory entry (which la 
automatically generated by the Dlak Cont roller Module) 
tells CoCo (and you. If you care to learn to read It) 
exactly where on the dlak to look for each file (read 
"thing") that CoCo put on the dlak. (What YOU put on the 
dlak may be different, Coca-Cola and cigarette aahes do 
not a happy disk make.) To aee what la on a disk (I hope 
you and CoCo always agree on thla point) you Juat type 
DIR (enter) from BASIC. CoCo does the rest In nothing 
flat. 

In fact, adding a disk system to CoCo adda about 35 new 
keyworda to Extended Color BASIC. (Unfortunately, you 
MUST have Extended BASIC before Dlak Basic will work.) 
These new keywords enable the savvy programmer to do 
literally anything that could be Imagined with the 
lnfurnatlon stored (or to be stored) on the dlak. By the 
way, that's about 250X per aide of the dlak. We'll look at 
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thst later, coo.) Let ae eel you s secret. I have JueC 
begun Co explore what all choee keywords can do for m* on 
■y own, and I've had dlak for ■ore than two yeara. Why ao 
long a wait? It coaea back Co clae. There la ao such 
EXCELLENT dlak software out there that 1 prefer to let a 
profeaelonal prograaaer aell ae a "canned" prograa with 
which to do ay Job. I can alweye diddle with It afterwards 
(and alaoat alwaya do) to add ay peraonal touch of 
convenience, flneaae, or ego gratification. (That'e 
another thing about disk. You can add your own naae and 
auch In the appropriate placee of a coonserclsl progrsa- 
even a aachlna-language progrsa- once you lesrn to use a 
"dlak upper" package. More on thoaa later, too.) 

Would you like to learn aore about exactly how a dlak 
ayatea works) 1 could fill up sn awful lot of apace 
explaining It all, but (for the aake of the unlntereeced) 
I would rather point to The Source Of It Ml. Those of ua 
who ARE Interested are Invited to write or call: 

Percoa Data, Incorporated 
11220 Pagealll Rosd 
Dallas. Tx 73243 
(214) 340-7081 

Aak for the book, "Inside Peraonal Coaputer Disk Storage 
Syaceaa". It's free. It's alao the very beat explsnstlon of 
what generally goea on In there that I have ever aeen. I 
have lent ay copy to people who didn't know a watt froa a 
aegacycle from a acrewd river, and have received profuee 
thanka In return. Try It on for alze! 

Until next tlae, 



Carl 



CEDRIC 



A few weeka ago I received a copy of Cedrlc "A Screen- 
Orlunted Rdltnr lor FLKX". The author. Dr. M. J. Kendall 
aaked If 1 would review It. 1 wrote a letter back with ay 
first lapreselons of the editor aa It then atood, and 
Indicated that 1 would review It, but that 1 wae working 
on an editor of ay own, and 1 thought It sight be beat to 
get an lapartlal reviewer. Mike Randall wrote back that 
he thought 1 could and would be lapartlal and fair and 
that he would still like ae to review It, ao here goea. 

Cedrlc, according to the manual, "la a screen-oriented 
text alitor specifically designed for eoftware 
development, rather than word-processing. Thst le not to 
ssy however thst Cedrlc csnnot be used to prepsre 
text...". It Is then pointed out thst the manual waa 
prepared uelng Cedrlc. The aanual Indicates thst the 
design goals were speed snd flexibility. 

The editor Is written in ssseobler, s fsct thst by 
ltsell does not gusrentee speed, but In the hsnda of a 
capable prograaaer, aaaeabler code will alwaya beat 
coaplled code. In this esse, the progrsaaer Is very 
cspsble. The whole editor occupies less thsn 6X of 
aeaory. Hike R..ndall points out thst he wss sble to edit 
the entire editor source code (35 pageu) snd still hsve 
14,400 bytes of aeaory freel The text buffer holds sbout 
165 sectors of text. Cedrlc hss s veiy nice feature In 
thst If aultlple editing functions thst require updstlng 
the screen sre perforaed, sny previous screen updste that 
Is In procesa Is sborted to do the new function. This 
speed* up the editing process considerably, snd Is s 
festure you wuuld quickly coae to vslue. 

The price p.ild for s aasll code sice snd lsrge edit 
buffer Is s rsther sustere set of festures. However for 
editing progrsas aost of the tlae snd occsslonsl text, 
thst price night be Just right for many users. Cedrlc Is 
s "single node" editor. It la alwaya In what aoat edltora 
call tn<? "lnaeit" mode. Thst Is, text entered Is slwsys 
Inserted st the cursor. If the cursor Is In the middle 
of s line, the text to the right Is pushed slong to make 



rooa for the Inserted text. 

One clever feature of Cedrlc la the availability of a 
aenu to help you learn aany of the commands. The aenu 
coaasnda include moving to the top or bottoa of the file, 
getting sn Input file, writing sn output file, writing s 

■ irked block to s disk, clearing the edit buffer for 
editing of snother file, sesrch for s etrlng, replace s 
string with snother, tsb to next word, up snd down 
screen, define s ascro, repest, snd csb viewing snd 
setting. It you need the aenu to see whst key to use, 
type ESC ESI snd the aenu appears. The aenu tells you 
thst T will get you to the top of the file so you type T 
snd the first psrt of the file sppesrs on the screen. It 
you already know thst you wsnt the T, you just type ESC T 
snd you go tu the top of the file. 

Thi- aenu c>aasnds sre sll two-key coablnstlons, sll 
pre^vd.'d by fcSC. The single key operstlons sre sll 
control in n I to. i», snd these aust be lesrned by reference 
to the annual. Esch of these Is described by s two 
lettsr anemonlc such ss CB tor cursur bsck, CL for ersse 

line, etc. Though Cedrlc cones with s set of pre-detlned 
keys for these functions, s conflguretlon file sllows you 
to redefine the keye ss desired. Thus you csn set up the 
keybosn! to lie auch like wordStsr, Stylograph, or sny 
other editor the key saalgnaenta of which you have 

■ eaorlzed or becoae uaed to. Theae keya allow cursor 
■otlona In four dlrectlone, express cursor notions to 
beginning and end of current line, delete character, 
delete word, delete line. They allow aearch forward and 
back for a atrlng defined by aeana of an ESC coaaand, 
aearch and replace, and global replace. 

There are a tew well choaen convenience teaturea. One 
la a counter thst may be teroed, and lncreaented by aeana 
of control keya. There la a coaaand to place the value 
of the counter at the curaor poaltlon. Thla alght be a 
nice feature for sequentlel label generation when 
programming In asseabler. In s subroutine celled CETA, 
for exsaple, you could uee labels GKTAI, CETA2 etc. Thle 
counter alght slso be used for page nuaberlng or 
illuetrstlon nuabers (figure nn) in text editing. 

There Is no Halt on line length. Entering s line 
longer thsn the screen width will eventually ceuse the 
screen to aove to the right, following your entry, ss 
beginnings of Lines disappear off the left of the ecreen. 

The aacro definition festure allows you to define s 
ascro (s series of edit coaaand keystrokes) thst cen be 
done by aeana of one key. There sre two "perasnent" 
asrron you csn define In the conflguretlon tile. There 
sre other control functions for tabbing, marking a block 
ot text (which appears In reveree video aa you mark It) 
down to the rharacter level. Portions of text may be 
"cut" to a "paste buffer" snd then "pssted" to soaewhere 
else In tha text. 

Thla editor contalna all the features necesssry to 
edit s progrsa file pslnlessly, and many of the desirable 
festures 01 larger editors. It alght be worth s quick 
rundown of whst It doesn't hsve. You csnnot edit s file 
bigger thsn the edit buffer, which generally Is not s 
hsndlcsp elnce s progrsa thst lerge would ueuslly be 
broken Into sasller aodules snywsy. There Is no wsy to 
set s "bell coluan" for s beep froa the teralnsl, snd 
there Is no sutomstlc "wordwrsp" to the next line when s 
certain ccluan Is exceeded. Of course this is no 
hsndlcsp whstever for writing progrsas. Cedrlc has no 
capability to toraat paragraphia, but of count there are 
aeveral available text proceaaora that will do that very 
nicely for you. 

Cedrlc worka completely aa advertlaed. There are no 
spperent buge. The globsl replsce function works 
perfectly and would hsve to tske the sll tlae prize for 
being exli-cuel) last. 

Reviewed by: Ron Anderson 
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Editor"* Hot*: Since Rod did this review, during our 
"beta" teat period, there have been several laprovenenta 
to chia Uea. 

Flrac, a very nice and eaay to use terminal 
configuration program haa been added. Juat type tbe 
neceaaary keys - preato It la donel. Mao eone addltonal 
functions have been added. All In all, a very nice 
package, a lapis but powerful, 

A SPECIAL Introductory price of only S69.9S la a 
Halted tine deal from S. E. MKU1A. 

Secondly, our policy on documentations Is In order. 
Since we at rive to bring you good, lorn coat software, we 
cut only thoae cornera that make aenae. NEVES to 
coaproalae quality. Tbua, we will be quoting a new 
policy, starting thla oonth, on docuaentatlon. 

1. If you want the docuaentatlon printed out, It will 
be an additional $23.00. added to the advertlaed price. 
Labor, paper, etc. prices gone aky-hlghl 

2. If you can print out the docuaentatlon yourself, 
you save S2S.00 doLlara. 

3. Rvgardleaa of 1. or 2. above, the docuaentatlon 
will alwaya be Included on the disk. It juat coat you 
•ore for ua to print It out, rather than you. So agsln, 
we give you a cholcel 

MOTE: The above appllea tor S.S. KEDIA License software 
ONLY) All others have manufacturers docuaentatlon. 



tracking down those elusive bugs. All commands allow 
symbols and/or expressions for the component parameters 
they expect. Sub-routine nesting Is tracked at all 
levels and levels nay be viewed In real time, simulation 
(about 10th speed or repositioned to any level required, 
(default 32 levels). Register dumps are available at. any 
point of the session, including sub-routine nesting levels 
and values pointed to by the 16 bit registers. See 
sample below. 

The disassembler will disassemble sny portion of the 
module being acted on, at any point of the session. The 
assembler may be invoked at any point of the module at 
any point of the session also, Including the memory change 
function. Code can be expanded by this method. 

aoda 



Commands are In six sections: 

1. Monitor coiiimands 

2. Assembler commands 

3. Disassemble commands 

1. Environmental commands (breakpoints, etc.) 

5. Execution commands (trace, simulate, real-time, etc.) 

6. Other Miscellaneous coomsnds snd functions (below) 

Commands consist generally of expressions. 
Expressions are evaluated left to right with no 
precedence. Expression results are 16 bit values, either 
signed or unsigned depending on the interpretation 
desired . 



Hath operators are * 
symbols and/or expressions. 



- * /, and may be used In 



SOLVE 



Symbolic Objeot/Loglo Verification a Examination 
A Super 03-9 Deluxe Debugger, A a sea bier and Disassembler 



Constants are decimal, binary or hexadecimal numbers, 
the PC symbol * or single ( a) or double ("HELLO) quoted 
characters. 

"Ab : fit I4<> 
"ab ■ *b162 
'A a till 



It has been a constant search by S. E. MEDIA to find 
and feature solid, economical software. Ue spend a lot 
of effort "beta testing" snd consulting to insure you the 
very best product possible, for the price. And speaking 
about the price, well, this particular piece of software 
Is, as is most all S. E. HLiJU offerings, a real bargain. 
It should sell for at least twice the special Introduction 
price of *69.y>. With source, in assembler, *89.y5. 
A^sin we are trusting you not to comprise uur faith that 
you will not distribute copies to auyone who has not paid 
their lair Share. II' the copyrights are violated, WE WILL 
ALL BE LOSERS! However, I attempt to make source 
available for Ye>Ult convenience. Please don't let me down 
on this! 1 have had to really "hard sell" to get authors 
to furnish source at a reasonable price, 

SOLVE Is the most complete debugger we have ever 
seen, snd we have had several offered for merchandising. 
I. Peter Dibble and others liuve used It for over y months 
now, and It Is solid! tt is simple to use and complete. 
It Is one of the finer software products we sell. I 
trust you OS-i) users appreciate the effort CPI. 68 Micro 
Journal and especially S. E. MEDIA, has gone through to 
bring you offerings such as SOLVE. Normally I do not get 
too excited about new products, hut this Is an exception. 
It has made my development efforts decline to S I M p L El 

Overview 

SOLVE has s group of monitor commands that function 
at the lowest level. At the next level It contains a full 
assembler and disassemble, both of which allow symbolic 
operations. SOLVE allows single stepping a program, 
executing It in real-time with breakpoints, or simulating 
its operation with a full deck of conditional traps for 



There ere two 'base modifiers', The 'I' preceding any 
constant or symbol causes the current program base (if 
any) to be added to that component of the expression. 

10 points to the base of the program module. 

Tiie symbol " <" causes the current data base to be 
added to that component of the expression. Twa commands 
I and < allow setting these bases. 

<U points to the base of the data area. 

Symbols may be strings of up to 32 characters In 
length. And may be pre-defined (disk file), on-line 
defined or written in SOLVE and written out to disk. 

Examples of expressions are: 

U<6/»2_« 

label*12-*1011 
423-1 <ulabel/»/47 

■ : current PC value 

I - binary number 

A i decimal number 

0/» ; hexldeclmai (either is ok) 

Errors are evaluated and reported by: -> Eval err. 

SOLVE Includes the capability to load symbol files 
from disk and write others out to disk, making all 
aspects of a debugging session much less painful. 

■and a 



Please note In the example shown at end of this 
article the completeness of the displays from these 
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commands. 1M> IS KTT a 'blind* debugger! 

M - Display memory, memory contents are shown In both 
hexldeclmal and ASCII foraat. Non-ASCII values are shown 
as * .' 

C - Examine and Change memory. The address and Its 
contents are both shown In hexlJeclaal ami ASCII. *.* 
Indicates non-ASCII value. 

ft fin 

DBC: C letOO <cr> "Start at this address 

E400 80 . 7K1 <cr> «We entered one space snd a «W 

E101 06 . " HELLO <cr> *Here we Insert a string 

E106 65 e J 12 it 7731 <cr> "Here a series expression 

E10A jA : ♦ <cr> *Just go one more byte 

ElOb 53 S rJelOO <cr> «Go to this hex address 

EM00 Ik D <cr> »Yep It changed 

These features alone make this a very powerful tool. 
The ability to expand code, Insert series of expressions, 
etc., puts It far above Host all other development toolsl 

♦ moves to next sequential address, - moves back one, 
- followed by an expression, goes to the new expression 
address (expression may be compounded) Enter a <space> 
and SOLVE outputs a ? and awaits an expression. Results 
are truncated to B bits, and next address Is listed on 
the screen. Entering " allows entering a ASCII string, 
terminated by a <cr>. Entering t allows entering a 
series of expressions. Expressions are evaluated to 16 
bits If the expression Is MIT, otherwise an 8 bit value 
Is stored. Teralnated by a <cr>. Talk about powerl 

F - fills memory from expression! to expression? with 
the value of expressions. 



7 - 

ASCII. 



searches for bytes or strings of bytes of code or 
Again Expressionl/2/3, as above. 



Example: 

71111 2222,12 1** "STKIKGtcrJ 
71eMau.»321i|.0u<cr> 

All addresses of exact matches are listed to the 
screen, 10 addresses to a line. 

E1S6 23FO F5C2, etc. 

t — Transfer memory, again expression 1/2/3 as above. 
Bytes from expl through exp2 inclusive are copied to 
begin at exp3. SOLVE properly handles the case where 
exp3 lies between expl and exp2. 

• - calculate expression. The value of exp Is 
calculated and listed In both hexldeclmal and decimal. 
The results Is an unsigned number In the range of 
through 65535 decimal. 

Example: 

=41i.lH01«SYHBOL 
J0010 (00016 

=H)+symboJ 

10015 #00021 

(assuming symbol has value of 5 and current program base 
13 110) 

Ass e mbler Node 

The assembler Is Invoked: 

A [exp] <cr> 

The assembler accepts all 600V standard mnemonics and 
addressing modes. Expressions/symbols may be freely 
used. 



The following pseudops are allowed. 

org - change assembly origin 

os4 - OS9 function call 

del - deletes a particular symbol 

kill - deletes all symbol table entries 

equ - sets program label value 

fn - sat 039 function call value 

Is - sets literal label (cr is td) 

var - sets data variable. 

read - reads a disk symbol file 

writ - writes a disk symbol file (all current symbols) 

Example: 

DBG:A JeiOO <cr> 

E<M)D start leax 1,x <cr> 

EU02 nop <cr> 

E103 bsr teKIO <cr> 

E107 bra start <cr> 

DBG: 

By the Interleaving of assembler and disassembler 
modes, practically any program can be modified at a later 
date with understandable labels and symbols, provided the 
symbol table was previously saved. Beginning to see a 
portion of the power of SaLVE? 

P print out symbol table. The label names, values and 
types are shown. In that order. Types are: 

I • Immediate 
s OS9 function call 
P : program label 
> data label 
Example: 

symbol) 7730 P 
table 0001 D 
ftexlt 0006 
mask 007f I 

The assembler looks and works Just like the regular 
assembler you are probably used to. No funnies here. 
Just type It In, exit with a <cr> and your code is 
Immediately assembled to the address specified, external 
or internal to your program. Error checking lets you 
know Immediately If you miscued. 

Disassembler Mode 

This mode disassembles memory from 6B09 object code 
to 6809 assembly source, If you have defined labels or 
synbols, they will be Inserted at the proper places. Also 
a very nice feature of the disassembler is that for 
branches, the destination Is shown by address - no taking 
off the shoes and socks to do some finger and toe 
counting here. All Joking aside, this Is a real great 
feature for PIC code disassembly. 

The disassembler Is very Intelligent. Tor example 
note the small portion below: 

nag is 1 

value equ 17734 

org JeiOO 

Ida 1 

lbra 1773" 

disassembles as: 

t:»IO0 Ida 10000 
£«I03 lbra value 

The value **•* is not converted to 'flag' since the 'is' 
declaration makes It useable only In immediate-mode 
Instructions, PCD Instructions are shown with both the 
offset and the effective address. Unknown opcodes are 
shown with ????. 
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Programs or modules In 0S9 that you have no source 
for may be linked to SOLVE and by the use of the 
disassembler, the Change function and assembler, 
completely customized new programs are easily generated, 
saved and 'verified', then used as any other program or 
nodule. 

1 Jon' t. know of any other one piece of software 
available for 0S3 that does so much, so easily. 

H - history function. SOLVIT keeps a history trail 
(track) of the last 32 instructions executed as part ol' 
the 'T' trace mode or the *S* simulate commands. It Is 
listed as a disassembly listing. 

V - define memory variables. The V command allows the 
contents of one or two Id bit locations In memory to be 
Jiii.ilayed with the register dump feature. Useful for 
tracking the changes in program pointers or counters. 

; - ex amine/ change the User stack. Valid registers 
are: 

A D CC DP X 1 U S PC or PCR 

See sample register dumps In sample session at end of 
this review. 

B - set & display breakpoints. Up Co 16 breakpoints 
may be active. Memory Is not altered until the "G" for go 
to and execute program command Is Invoked. Breakpoints, 
one, two, etc., or all can be removed with the 'K' 
couanand . 

print stack contents. Bytes are displayed two to 
a line. 

t - change current nest level. This allows bypassing 
lor>ij loops or portions of code accessed by Jump or branch 
to sub-routine Instructions. A time saving feature for 
portions of code not needing debugging (hopefully). 

N - set maximum nest tracking level. Any value $0 to 
IFF is acceptable. However, for nest levels up to $20 
SOLVE keeps a special table to avoid the situation 
encountered by bypassing 'leas' type instructions. In 
case of lose of nesting level by SOLVE, the '£' command 
can straighten things out most times. 

L - link to 0S<J module. Performs a FJLINK request on 
the nodule Indicated. Then SOLVE branches to the 'c' 
command, at the address of the module header sync bytes 
(iS7C0). The program base value * !* Is set to the start 
of the nodule header. The modules link count Is 
Increased by one. SOLVE stack contents are NOT altered. 

E - prepare module for execution. First linking to 
the module listed, Then extracts the execution offset 
from the header and RAM requirements. The program base 
constant ' f' Is set to the start of the module header. 
Additional memory, if needed, Is requested by SOLVE at 
this point. A stack Is then set up for program 
execution. Stack can be manually set li desired, this Is 
Just a convenience. 

T - Trace program (single-step). Begins execution at 
Indicated exp. The program Is executed one Instruction 
at a time, then the registers are dumped (and some other 
information), pressing any key except the <cr> or 
keyboard abort or Interrupt causes the next Instruction 
to execute. Nesting information Is updated and reported 
at each register dump. If the 16 nesting level Is 
exceeded, then the program goes to real-time until the 
level falls below 16. If the Unit Is set to '0', then 
only the outer most level is traced. 

G Co to program. This start the real-time 

execution of the program, at the PC value In the user 
stack, or at 'exp' If given. Breakpoints are enabled for 
the C command only. Breakpoints can be freely moved, 
added or deleted, between C commands. C commands can be 
Intermixed with S and T commands. 



A special feature Is that any time the program Is 
running under the C command, a tap of any key will dump a 
'snapshot' of the user stack, but tho program la not 
sloppeJ. 

S - Simulate program (multi-step) . This Is one of 
SOLVE' s most powerful features. It allows a program to 
execute at about 101 of normal speed. Traps are enabled 
by several user-changable conditions. 

Simulation uses the current user stack values. 
Breakpoints are disabled. 

Simulation may be run in one of four different ways. 

1. Starts at 'exp', which can be a symbol or address. 

2, S alone simulates at the previous defined exp". 

i. Conditional exit conditions are set up for 
simulation. Example: 

S [exp] ; condition [condition, ,, .condition} <cr> 

W . Deletes all conditional expressions and simulates 
at the previous defined count. Exp Is a 16 bit value. 

SOLVE executes 'count' number of instructions or 
until a conditional becomes TRUE, whichever comes first. 
It then displays the condition (If one) that caused the 
stop, and the number of Instructions actually completed. 
After the number is a disassembly of the next Instruction 
to be executed, as well as a current register dump. 
Pressing any key except <cr> starts the next series of 
Instructions to be executed. 

There are nine types of simulation traps that can be 
defined. Also SOLVE traps on two additional conditions: 
nest level underflow and any OS9 FJEKIT service request. 
All traps can be used together In any combination. 

The traps are listed below. The character shown on 
the disassembly line to show the condition that caused 
the stop Is the same as below that defines the condition. 
For "F* the character Is 'I* or *X*, 

1. F <I> <expt> <exp2> (or) 
F <X> <exp15 <exp2> 

Frame check: 

Stop If PC is outside expl to exp2 (for I) 
Stop if PC Is within expl to exp2 (for X) 

Only one I or X may be declared - not both, 

2. * 

Stop If current nest level Is left. 

3. N <exp> 

Stop If <exp> nest level Is exceeded, 

'I. <reg> <exp> 

Stop if stack register *reg* has value 'exp'. 

D. M <exp1> Cexp2> 

Stop If byte at expl has value of exp2. 

6. W <exp1> <exp2> 

Stop If lb bit contents at address expl and expWI has 
value of exp2. 

7. L <exp1> <exp2> 

Stops if program passes through loops address expl 
the number of times specified In exp2, a 16 bit quantity. 

8. K <exp> 

Stops on any reference to address exp. 

9. Stop after any 0S9 function call. 
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SnO0;ir77Ji.fc'H.'*h7d,L.4bOo = 41OO <cr> 

S ; <cr> 

S 100; <cr> 

S;U £e<J00«08j?,PC:3tart+10 n 8 <cr> 

I - pass conmand to OSy 

q - Quits SOLVE and returns control to 0S9. If the 
nodule link count is one. It Is remwwd fruw the nodule 
directory. 

t * set program base. 

t <exp> <cr> 

Set the base to exp. 

< - set the data base, (see above} 

Either or these may be employed to set general base 
pointers during a debugging session with SOLVE. 

So. there you have It. In my opinion one of the most 
valuable programming tools for 0S9 . Simple to use and 
very Informative In it's display, SOLVE should be in every 
programmers tool kit. The power of SOLVE Is far in 
excess or what I have been able to tell you here. I am 
probably one of the oldest OSy users around. Yet, I can 
honestly say that it Is by far the moat valuable, of any 
programing tools I use. 

SOLVE is now available from S.E. HE01A for only: 

Special Introductory Price - $69.95 

w/ source 489-95 

(limited time offer) 
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4490 Yukon Ct. dZfl 
Wheat ridge. CO B00ZZ 
October 2. 1995 

De<sr Mr. Williams, 

I hove been searching fmth no success! 
for the address and subscription cost 
D TPQ. Grjaurided.. Would you 
readers have this information? 

Ttianl s for vour time. 



or any of 



far 
vour 



Sincer»l v . 



Zjjli/vto tuTtfyes 



& 



tarKits - 



Calvin DodQe 



Stvaral cualoaara oava racanlly aakad, "Wblt makaa STAR-DOS dlftaranl Iron 
FLTX la Iradaraarfc of Tacbnlcal Syatamj Conaultanta (ncV* or OS-* ii 
Iradamirtt of Hlcrowara lnc.ll* 

STAR-DOS la Baal alaillar lo FLEX. Any program which rani »ltb FLEX alao 
run a wltb STAR-DOS. but batlar . At tbla lis*. jfj. fcnaw fii no Pfoarama 
iJUfii Ufl SUA MjEX BjiI 4fl Afii LUA KllA STAR- DOS. 

Ant thara ara alio ilinlllcant dirtarancaa balwaan BTAR-DOS and TLIX. Mara 
la a aberl aummaryi 

I. STAR- DOS conca with many fypport pro(r«ma which coat antra on 
otbar dtak oparailni ayalama. Thara ara. of couria. Iba standard onaa to lat 
you load and aava fllaa. rvnama or dalaia progrima* tat a dlak catalog ale. 
But thara ara alio elhars which lal you Hat (Ha addraaaaa. chania prompta. 
chania or updala dataa. aaarcb fllaa lor taal or binary data* aorl dlik 
directories by nana or data, do aalacllva copy In i or cataloging, recover 
da mag ad fllaa. ra-ax acuta pravloualy loaded prog rami, chania IM atap rale 
of dlak drlvaa. and mora. 

I. for Ihoae ayataana which hava a clacx/calandar chip, STAR-COB cornea 
■ lib tha aourca coda to add two extra functlona. whan STAR-DOS !a Initially 
booted. It will automatically fat lit data from tha calendar cblp. 
Furthermore, aacb lima a ft la la aavid to tba dlak. or ■ randoai flla la 
updatad. STAR-DOS will put tba currant data and Ume In Iba directory. Thla 
feature fa Important In aavaral waya. Fir at of all. II aneblaa you to 
dlffarenlrela batwaan slniiar fllaa having lha aama data - you ean tall wbal 
erdar tbay ware iivid In. we alao provide a aortad catalog proiram callad 
TCAT wblcb abowa tba dlak directory with tba !»l#3l (Ilea on lop. Tha moat 
recant fllaa you worked on will always ba ahown flrat in tha directory llatlnf. 
Tbla ah fifty la of Irentendoue help, aapaclally to uaara of larie dlaka. 
becauie II haipa you rind tha falaal fllaa on tba dlak, and keeps older file a 
from clutter In f up tha directory Haling. Everything needed lo do Ihta la 
Included with STAR-DOS. 

]. For tboaa avatama which hava autre memory. BTAR-DOS c»maa wltb tha 
aource coda to add althar a RAM dlak or dlak cache. For example, with extra 
memory (cheap at today's prlcaal you can hava tioK of RAM dlak which will 
provide llghtnlni-faat reapanaa - extended Baalc loads end axeculea In way 
under one eecond. Everything needed to do tbla tl Included with STAR-D08. 

4, For really larra system a. STAR-OOS allows you to hava up to tan 
drlvaa. although Ihla doaa require that lha dtak conirollar(a) ba capable of 
mora than four drlvaa. and that the dlak driven alao be *bJe to handle mora 
drlvaa. But avan without extra drlvaa. thla meana that you con have (our 
reel drlvaa slut a RAM dtak. Simply number tha RAH diak aa drive 41 

Si we provide oth« uimtitj for the serious user. For example, one 
program provided prlnta tha drive, treck. and sector numbara each time 
5TAI-0OS accaaaaa any dlak . Thla pro vl dee a running record of what fa 
happening et ell tlmee. Invaluable tor the person developing new program*. 

4, fn aome ereee. STAR-DOB la oubalonUolly (eater then FLEX, ror 
example, loading lime from Winchester or RAM dteke la much feetar ttoad lima 
from floppy dlaka is not affected bacauee tbe dlek speed La lha llmlilnf factor 
there), tome random file oparalfona ere alee much feeler. For example, a teal 
program wa ran In Extended Baalc to reed 40 elemente out of a 4000-etamenl 
virtual errey took 44 oaconde wltb FLIX Iwltb constant dlak bead movement!, 
and only n aaconda wltb STAR-DOB. 

7. Much more all ntf leant, wa have gone to extreme* to moke euro that 
STAR-OOS doaa not make errore. Hare era lust a few exampleai 

a. ir you accidentally switch dlaka while • rite la open for writing on tha 
dlak. any disk operating eyalom (Including STAR-DOS and FLEX) wilt clobber 
tbe disk. But STAR-OOS has a unique feature - It prlnta an arror massage 
lading you what baa happened and Uvea vou a chance to recover before 
further damage la dona. 

b. It you swltcb dlaka on a drive while there Is a flla opon jjj any other 
drive (even though there la no (Ha open on tba disk bains switched}* FLEX 
will clobber the dlek. STAR-DOS will notf 

c. when a random file program exceeds the afie or Lha random rile map. 
FLEX will clobber Iba dlek. STAR-DOS will noil 

d. Wben en old random (Ma le updated, STAR-DOS chengee Ita data and 
time to abow thet It baa bean modified. FLCX keep* the old data. 

e. When a program la loaded from a dlak, or when lha 'print error' 
routine la callad to report en arror. FLEX eraaaa parte of the current mier 
file control block. STAR-DOS doer notl 

r. whan you try to eccase ■ random record which la beyond tha end or 
an e xlillng random flla. FLEX simply return* an error massage. STAR -DOS 
actually lUti you the op don of extending the tile to Include lha dealrad 
record. 



I. Perhep* most tmportent of ell, «u lullr support BTAR-POfl and LUlM Ifi 
fiJIL euitpweri. whan we first Introduced STAR-OOS, cualomera reported aama 
hues and «a tlxad tbem. wben some Incompatibility ware found between 
STAR-DOS and exletlng eoftvero, we fixed them. Wben cualomera raquealed 
Iba ability to ex lend axil ting random files, we put II In. whan a recent 
customer euggaalad that we odd plpaa. wa added the INPIFR and OUTPlPE 
command a. whan a customer didn't ilka our arror mesaegaa. wa added 
usar-chengeabie arror laxla. whan a foreign licensee eekad for permlaaton to 
Irenalale 111 of STAR-DOS Into French, we gladly gave It. Whan one yoUflg 
cuetomer aaked Ibet wa make lha boot proceaa a hit mora friendly, we even 
added tha word thank you' la the slgnan message. 

in ahort. wa aupport STAR-OOS and wa aupport you. Even now, es we 
prepare our STAR-DOB for 4B004 / 16900 / 4E020 compulera. our goal fa still 
to make STAR-DOS a* simple end user -friendly op poaalbla. Our 4 AX 
STAR-DOS will still ba totally compatible vltb our 4AQ* STAR-DOB. will ba 
able lo Interchange dlaka wltb It* and will ba uaad In much tba aama way. Wa 
will not abandon STAR-DOS lust becauaa wa ara aa pending to tba taOflO 
worldl 



fWncnvore E I #>c iron I e-a 
Computer Publishing Center t> o box r ztr 

frft* rltcro Journal Holt. Hlchioun 

5900 Cassandra smith Road ASM*. 2 02 7S 

mxson. Tennessee 373*3 

Dear Sirs: 

Benchboard fUlS has been online sine* October 5. 1 9ft* we 
operate the system 24 hours each day at a Ml 30o baud. The 
host computer Is a Tandy Color computer with four disk drives 
and originates from Lansing, rtichtoan The telephone number 
Is <517> 3S* 244 7. 

Long distance callers are requested to drop a letter or post 
card of confirmation to the address listed above In order to 
access the downloads Catlrr* must Please indicate which 
computer they use in order to avoid disappointment . There Is 
a GUEST access and an online application for local callers. 




:«ri i y . 

C ■ U>ol*v, 




Evans. sysop 
Pearnon. Atari hv 
ranaiun. rtL aWAQP 



Dear Don, 

1 sol another avid 68HJ reader who finds chat your 
aagarlne Just seema to be getting better all the Claw. 

Perhaps I should say OUR magazine, being a Motorola 
micro fan. When reading your comments, I feel you're 
conversing with tie personally. 

By the way, I run a 6800 SS50 system (and badly want 
an HP 09, used or preferably, bare board) and have 
recently started exploring cocoland. 

Having been caught by the demise of Data Syatena "68 s , 
being down the price of a couple of boards, I'd like to 
know IF Robertson Electronics, of 1003 Warn Sands Dr., 
Albuquerque, NN 87123 are still selling their CLK68-1 
Clock board as I haven't seen their adds for awhile. 

Also on p52 of July's Issue, a classified ad by a Cll 
Shattuck contained exactly what 1 want, s/h MP09 boards, 
elk board etc, but I hesitate because of the risk. Have 
you heard any complaints? 



Yours Sincerely, 
Steve Petschel 



<* 



-^ 



Editor's Bote: Steve, aa to the Data System boarda I 
a till hope that they will aee the light of day again. 1 
get calls, all the time, diking about theae, and other 
kit/boards. We have that oar-Wet cornered, but no one la 
willing to bet a few bucka on then. If ve had more 
handa,! would be veiy tempted. 

I believe that Robertson Is atlll selling. We use 
their boarda and they work fine. 

Aa to the classifieds. There la no way we can check 
them out - you're on your own. However, if anyone ever 
got really atuck, I have not heard. I gueaa it haa 
happened, but it is like buying anything else second-hand. 
No warranty, you takea your chances for the leaser price. 

Thanks for the other nice words. Watch out for the 
Dlngoa! 

DHW 
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Dear Nr. WlUtaai; 

Thank you for a great msgszlne like 68' rttcro Journal, 
please find enclosed a check for Che amount of $66.30 In 
order to extend oy subscription for 2 sore years. 

I'd like to give thanks Co Dr. J. Pentecoat fro. 
G.I.T. (frBMJ. Jun. 82, 36) for supplying tie with the 6801 
Tiny tSaslc and control related Information. 

Recently 1 had to disassemble the monitor codes (with 
some standard labels & comments) for the Compacts 
Unlboard sold by D.R.C. tf some of your readers are 
interested In a copy, I'd be xlad to send It to then. 

Sincerely yours, 

Prof. Ceza Holzhaker 

Apdo. Correos f 393, 

Merlda 5101. 

VENEZUELA. (S. America) 



dp. Johnson 



mtcn>eornpukn consulting 
7WS uulhiml udanreu ureal • Portland. Oregon V7223 • (S03) 2444152 



NEW PRODUCT AHNOUNC ENEHT 

TWO MEGABYTE SS-50C RAM DISK BOARD: 

The RD2 is a 2 Megabyte "Ran Disk" board 
for SS-SO 6609 systems operating at up to 
2.25Mhz. The RD2 occupies 258 bytes of 
address space on the bus, two bytes are a 
sector select register, and 256 bytes a 
window into the ram. Up to 8 Boards may be 
used in one system to provide a ram disk 
with 16 Megabytes of storage. The RD2 is a 
four layer board 5.5" x 9", refresh is 
transparent to the system and because the 
average cycle rate of the rams is low the 
power consumption for 2 Mb. is under 1 Amp. 
The quantity one price for the fully 
populated/ assembled and tested board is 
S11SO.00. A diskette with drivers for OS-9 
level 1 S 2, a formatting program, and a 
test program is available separately for 
S30.00. For more information or to order 
contact; D. P. Johnson (503) 244-8152. 
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CRASMB(tJ», CROSS A5SEHBLER 
NOW AVAILABLE rOR 05 9/69 899 

PORTLAND. OREGON: LCOtD 1/0 ■nnouncn tha release of the CRASHB 
8 Bit Macro Croaa Xaaanblar tot HieiDwiit'i OS9 diik operating; 
iyit*a for tha 60140 family of faicroprocasaori. In r a cant 
incraaalno, r*qu«iti for tha OS9/6B9II vttnon of CRASMB, 
LLOSD I/O hn tranelated its four year old CRASHB fox tha 
OS9/6009 and FUEX/6BB9 CO tha 059/68000 tnvlrowtnt. 

crasmb support* aasetnbly lsnguage eof twere development for thai a 
microprocessors: IBBJ, 6592. 6BBB, 6Bll J 63B3, fe«B4 r 60IS, 6BB9, 
6811, THS 7000. BB48/family, B 95 i/f am. 1 y , 0000/05, 2B, and tha 
180. CRASHB ia a full featured tiitoDlir with mac to and 
conditional aaaambly facilltiea- It tjenerataa object coda uelng 
•J dlffarant formats'; none, tt-EX. Motorola S1-S9, and Intel Hei , 
Another format la available which oiitputa the source code after 
aicro eipanalo*, ate. CRASkB allows lab-al laymbola) length to 39 
characters and haa label croaa referencing options. 

CRA5MB for 059/69000 la available for 902 in US funda only. it 
may be purchased vl th VI SA/KASTERCH ARGt citds, chtcM, US atonay 
ordara, or US governm-ent {federal, atate, etc.) purchaae ordara, 
NOTE: plaaaa add 95 shipping In the OS* and \taa yogr atraat 
addreaa for UPS ahlppnents. Add S3B for all over sea a ordara. 
CRASMB for 059/6099 and FLEX/6999 coat -1399 plus shipping. 

You may contact Prank Hoffman at LL0TO 1/0, 19535 HE Gliean, 
Portland, Oregon, 97239. Phone: CS03) 666-1997. Telet: 919 3BB 
5449, answer bscfe : LLOYD I 0. Keeyllnk: 62S46119. 



iCWASMB la 
Mlcrovara Syatema, 
Conau It ants, Inc*) 



trademark of LLOYD 1/0, GS9 la a trademark of 
a. Inc., FLEX la a trade-mark of Technical System 



LlOTO I/O 



I 933 01 Nt 0L'»»f. BVaCCT - PdkilA-Pi ON V7Z1D • r«*«* KOflr-iAN 
l»C)> ••*- I 0«"7 TWX * 1 O 1105441 LLOvO i O 



Gentlemen; 

Here's a modified version ot a patch I'm using In rt 
bulletin bnAfd program currently under dcnelopaient . it 
odght be of use to others wishing to stake things easier 
for new or occasional users of FLEX systems. 

It re -directs the error routine when the operator 
Inputs a question mark as a comnand. listing a help file 
on the system drive called ll&LP.I.LP Instead of returning 

+++ WHAT?. 



HELP. TXT Is the assembler Input listing. 
HELP. ASH Is the itaaembled output Listing. 
HELP. BIN Is the assembled binary output file. 
HELP.HLP Is a sanpLe help text file. 



Best wishes tor your continued Huccess with an 
excellent and most valuable publication. 

Jon H. Larlmore 



1 -it- lift 

|V>-. 



i.rtij-* 



.P.tlLP 

Piuwe Control 1 «. t rapnra rl t JT «r:Llvsit«*d. 

BlaplAf u( t h J • |ll« will tn* *ltw-^. nn» icrccn »t a Hm 

Ti> aoito on to ihr hci:1 Brrrujb, t*r*si* thi* KSC hrf. 

To tvfalnatc di-pt*? ol thla 111*. f>r*»* RETVW. 
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24.00- Ttlla te a standard ASCII tERt III*, created oltK anT of enteral word 
7.*.r*>Proc*aaorA or teal Milton,. 
lo.OO" 
27.00* It flight Contain: 

7».no- 

19.W4-I. In«1 Pm I luni lor ii«>l|al lii| • hul Irt In-Viaril ayalra. 

10 .IKK 

3l,<ll>-2. I.alllraf arntei fur ■ word l.rocenanr , 

J2.U0- 

J3.WU-J. A catalog o( other loll (lie* containing Inloroottvn jlKTWl and 1 

34.4)0- matroet loni Idt mu or ipaclttc eyatcai utllllUa or prograaa. 

33.00- along with Instruction* lor LISTIng the.. 

la.llrl- 

ll.il'H*. A reialog of nrlmco -rol-a Inatrurl Inn annuala and/or vnK>- 

IB.tlo- rwoocre for elNjcH Ic irruhli.OM. 

19. 00- 

40.00- 

41. Ull- 

42. nu- 
ll no-trio or Ktir riLe. 
44.no- 
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• 681° f LEI HELP Pitch 


<» 
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I By Jon H. Linton 


4. Its 


I 59IB ftrlingtoo Blvd. 


f.W= 


< Arlington, V». 222*4 


H 11 = 




1,H> 


> ) .<t toil IB.TV/3'. 


IB. 81" 




II. Mr 


I HELP ts > pjtrt) to the HE! DOS otiich till 


12. H* 


i list a ttit tilt on the mire drivt call*. 


iJ.H* 


I "NElP.itlP" «hinr»rf a '?• it Input as a 


14. H= 


i roeaand. 1 Instead at sieply output tmq 


15.11= 


i ■WttP'.l It it intended to eakt tht HE) 


It. IB; 


i 005 toarNhit friend] Itr lor art or calual 


n.foV 


i L^ers. 


IS. I»= 




19. » 


i KElP «)ll teaporanly activate tht ll»SE! 


it.n-- 


> death and pause controls, then return 


71.11= 


' thtt to their (rrlnous settings. 


n.tifr 




u.m- 


i KELP wiillr rtndc4 in tht unuMi fill 


;t.M> 


t print (pooler aria in a Pl«69'i MB. 


."5.M- 


i If you it using thu arta lor a spooler or 


?6.*t= 


* otfter routine noarvtr< you tay nisb to MS 


».» 


• it at high aeury irtttlting KPEHB1. or 


2B.H-- 


t perhaps it, anothtr a<ai labia aria. 


29.M= 




».«' 


• Im tay tithtr apptnd thu to your teriuiil 


W.«- 


t drivers irhile creating a »«• FKI.StSi or 


W.H-- 


* sieply GET it using tbt ST4RTUP routint. 


33.M> 




J«.«* 


• Iht 'qsttri* equate btlca it an undocuttnttd 


55. *- 


* location in 6619 FLE1 Yimou 3.11. If 


3t.ll' 


• you're using a different version of FLEI, 
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■ asseaely. 
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t to vlrity thit, use your loutm- eeoory duat 
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< routint to loot at address SCOW. If tht 
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I codt 'BE CCS* 1 is thtrt, you're OK. 11 not. 


an. 
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i Also, etiect the value of 'trilip' here. It is 
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t »t for a 24-line tertmal display, rou tay 
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i need to cha«ge it. 
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CHI linbul rou ttBH Input line tuff tr 
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ON pspool egu fc7H Print spooler arta lunuttd' 1 ) 
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L/IU quecol egu fc fib Print queue counter 
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CCI3 depent equ tcc!3 HfSET display depth count 
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Escape return reqister 
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lit 


IJ9.IJI, 


M 


•5.H« 


C7|f 34 34 19 




n» 


(34,134,139 


94. M= 














er.tt- 


l«l« 






nr| 


aairal 


lanllrr aaaiw rlVMar 


<I.M> 


I'll H 






lib 


1 


l«r [I 4uiuf taant la 1 


99.11= 














m.m' 


cue it 




trotlt 


It* 


;« 


t«a4fr 81 Itnif roar Irramll tia dl4|1iy7 


III. II- 


r'i» et 




fill la 


its 


1 


irapoiirr teetb llai 


II2.W- 


nil it 




»*»*•• 


lit 


1 


Ifopvarv PMvr rial 


11!. II- 














1M.M- 


cm is 


Ull 


trial 


141 


let iti 
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f!24 IWf cm 




lay 


Hllit' 


Tts, 101 at te Kit Ull naaa 


lM.Mr 


C7?> K 


C4W 




Idt 


IIKbUl 


FoiaI la lint character el uput hai balfrr 


lfl.N- 


fit 44 


ai 


help? 


ID. 


»'■ 


Bit 1 chlriclar, petal to tba nail ail 
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111. N- 


C1SI If 


IS 




III 


•elf] 


In 


112. N' 


CJ»3 l» 


if 




ill 


4 1 ' 


No. itpra it. pull tl aert bailer locitioa 
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(S19) 824 0911 



Computer Publishing Center 
68' Micro Journal 
S900 Cassandra Smith Rd. 
Kixson, Tn. 37343 



Dear Don: 

I have thoroughly enjoyed your magazine over the years 
and wish you all the best 1n your continuing efforts to 
provide the dedicated users of Motorola ii coprocessor's 
with current Information and editorial comments. As an 
engineer and microprocessor user since the days of Intel's 
4004 I found that the Motorola 6600 and 6609 microprocessor 
designs have been easier to program, and easier to teach 
programing with then the Intel devices. At this time I 
would I flee to present you with iy vision of a dream lachlne 
for the 66xxx users. The Apple Macintosh was a start but no 
expansion and to restricted, the Commodore Amiga looks 
promising as well as AT&T's Unix pc, and perhaps the 
Pinnacle. 

First Ute hardware requirements. The machine must use 
a 66000 preferably a 66020 with a 66861 math coprocessor or 
at least a socket and support for It. The disk controller 
must support DMA and handle hard disks as well as floppies. 
The floppies must be capable of one megabyte or as close as 
possible. The chassis should have the capability of 
mounting at least one full size five and one quarter inch 
hard disk, and a three Inch floppy or five and one quarter 
Inch floppy drive. The machine should support at least two 
serial ports as well as the console keyboard and a 
bidirectional parallel port that may be used as a Centronics 
port or Input from electronic devices. Four serial ports 
would be preferred with one of them reserved for network 
Installation. Memory for this machine should not be Halted 
to 512k but should start at S12k with some sockets for 
expansion to one megaword of memory with some buss extender 
for further expansion. The Ideal machine should have at 
least medium resolution graphics In the order of $12 • 480 
pixels and virtual screen support. A high resolution mode of 
1024 • 1024 would be delightful. Color would be nice as well 
as multiple screens. Please don't default white niu blue for 
text mode, how about black on white as the Mac or green on 
black with a faint border. Sprites would be an Interesting 
way to support graphic symbols etc. as well as animation. 
The Amiga appears to be capable of this. The graphics 
outputs should Include RGB digital and ROB analog as well as 
a composite video output. The Amiga's speach Is nice as well 
as the sound generation chips. The system should support a 
mouse. The Macintosh's mouse and the operating systems 
support of the mouse 1s a little too restrictive. I would 
tike the mouse to have a cross hair as well as a linear 
motion mode for digitizing and drawing. The above 
requirement may require that the mouse have two motion 
wheels to detect rotation of the mouse. That fairly well 
sums up the hardware requirements except for a battery 

backed up time of day clock chip and that trie cpu speed be 
as fast as possible. 

The software requirements are also quite stringent. 
The windowing capability and pull down menu of the Macintosh 
Is nice for a lot of applications but having used Unix 
system 'V and the *csh* (c shell) with the command line 
expansion features and It's programming language I demand 
that the operating system support both. The csh has been an 
Invaluable tool as many programs tn Unix are shell 
executable files calling system utilities making use of 
various filters etc. The shell has saved the systems group a 
lot of programming by making use of the piping feature and 
various filters. The serial port drivers must be able to 
handle bidirectional Xoff/Xon flow control and be capable of 
generating and trapping a break. The ideal operating system 



than would probably be 0s9 as in many ways it is faster and 
more reliable than Unl» for a single user system. The 
machine should have some CAD/CAM software capable of 
generating printed wiring boards and schematics. The 
graphics software should support a laser printer for dumping 
the graphic Images as well as all Hewlett Packard and 
Houston Instruments plotters. The programing languages 
should Include Bas1c/Bas1c09, Pascal, C, Fortran??, STSC's 
APL, and perhaps ADA and Modula. These languages should all 
make use of the coprocessor If installed. Mlcroware's 
Bas1c09 Is fairly complete but It lacks some of the 
flexibility of even the Applet's applesoft basic. The major 
feature Is being able to dynamically dimension array sizes 
at run time. This simple feature of :A?100 and 01a 
array<3,A) has limited Bas1c09 many times when trying to 
write universal statistics packages. It would be nice to 
have some data base software perhaps similar to the packages 
on the IflM pc's or Unix's unify. 

The reasons for some of these hardware and software 
requirements I adult depend on the intended use. Currently I 
am employed at a University where we use computers to 
display stimuli on the crt and measure the time for a 
subjects response, as welt as controlling laboratories, 
collecting data, and analysing the data. The Mac has not 
been a good machine as It Is very difficult to measure a 
simple yes/no response via a parallel port or to signal 
external equipment other than through the serial ports, and 
has no multiple video screen support. Primarily we have been 
using the U1cat 68000 (Unix system V), Glmix 6609 
system(0s9), Applet's, and IBM pc's (yech). The pc's are 
very flexible and have lots of software but I detest the 
architecture (ancient and slow although having math co- 
processor makes them faster in some applications). 

Please excuse the rambling but I've been waiting 
patiently for this machine. The technology Is here and so 
are the customers. Perhaps Apple has something tn the works 
or perhaps the Amiga with Os9 may be acceptable. We as users 
keep hearing rumors of such machines, where are they, how 
much longer will we wait before buying those blue machines. 

Yours 



wray KOtton 



RV ptOOOCT 

Peripheral Technology 1* announcing • new single board 
computer, the PT-69-4. The PT-69-4 was deelgned 
specifically with OS/9 in mind, plus expanded capability. 
The board haa 59K of uaer Ran as opposed to 56K In the 
PT-69-4. It also has two additional serial porta. The 
PT-69-4 featurea: 

* 6809 Proceaaor with I KHZ Clock 

* Four RS-232 Serial Porta using 6850 ACIA'e 

* Two 8-blt Parallel Porta ualog 6821 PIA 

* Tlne-of-dey clock (MCU6818). A battery holder la on 
board for a lithium battery. 

* 59K of Uaer Ran 
« 4K EPROM 

* 8 Double sldsd/doubls density controller chip 

* Bosrd csn be configured to resd stsndsrd Hlcrowsre snd 
CoCo disk formats with s slogle Jumper chsnge. 

* OS/9 avallsble for either the PT format or Hlcrowsre 
CoCo format. 

* Bosrd site: 8.4" x 5.5* 

PR1C1NC: in single quantities, the bosrd Is $325. 
Qusntlty discounts sre svsllsble. OS/9 for the PT-69-4 
Is $200. 

For more Information, contsct: 

PERIPHERAL TECHNOLOGY 

1480 Terrell Hill Rd. Suite 870 

Marietta, Ge 30067 

404/973-0042 

OS/9 is s trsdemsrk of Hlcrowsre snd Motorola. 
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Dear Von, 

Many thanks for Che back laauea for 1985-I've been on 
holiday for ion of August and all but Che Hach Issue 
have arrived already. 

Please send me Che 1984 laauea from July to December 
Inclusive. 

Keep up the good work. [ first saw microcomputers In 
1976 In Che Computer Score on 5th Avenue New York. They 
had HITS, IMSAl with Che crazy fronc pannel acolen from a 
DEC PDP8, and (of course) SUTPC. I was using SHTPC gear 
up Co a year ago (S/09 under unlFlex) til I changed Jobs. 
I'd really pleased Co see chsc msgs snd manufacturers 
from Chen are still eround. 

The currenC machine (my first) Is a 56K S50 buss box 
assembled by ne from UK boards. MdnC build lc till chree 
yesra sgo ss I wss scared of Che time I knew I would 
spend on lt-I aIbo fly model planes compettt Ively-ao held 
off as long as poss. I think FLEX Is ldesl for this type 
of machine snd done see Che need for more RAH. 1 am a 
professions! progrsmmer/ana lya t snd think that huge 
memorye hsve merely msde designers snd lmplenentora 
sloppy. My flrsC mainframe had all of 60Kb plus 8Mb of 
dlBk. in 1970 we were running s Clneshsrlng system wlch 
4 termlnsle snd 6 cssks In 96Kb and 24Mb disk snd lc 
seemed fast Co us Chen. 

In general the sofevare available under FLEX la ac least 
a a good as 1 have aeen on many mainframes snd minis. You 
will took In vsln for a source-level symbolic dedebugger 
such aa PL/9 hss on machines like VAXen. 



All Che beat, 
M.C. Cregorle 
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10 Ssdlere Mead 

Harlow 

Essex CM18 6NG 

U.K. 

(0279) 445174 



PRESS RELEASE 

CMX / SCULPTOR AT COMDEX NOV. 20-24 

CIMIX will be demonstrating SCULPTOR running on the CMX 
68020 1/nlFlex-VM system at COMDEX. COMDEX will be held 
from Nov. 20 through the 24th, 1985 In Las Vegss. MPD, 
the developers of SCULPTOR, will be occupying Booth N7171 
In Che new Hilton Psvilllon. You sre invited to stop by 
for s demonst rs t Ion. 

Classified Advertising 

Tsno Outpost II, 56K, 2 5"DSDD Drives, FLEX, MUMPS S895. 

HICRaKEY 4 500 Single Bosrd Computer, Tsrget I28K RAM, 
FLF.X, FORTH, with optional 6502 CI'IJ 5 ROMS as advertised 
on p. 51 Dec. 84 68 Mlro Journal. $2100. 

LSI 68008 CPU Card with Digital Research CHM/68K 5150. 

l-PT-69 cooplttP with Uunl 5" DS I>I| Dink .Syuli-c» ami 
Controller, includes FLEX DOS. 

TKLF.TYPE Model 43 PR1NTKR - with serial (RS212) interface, 
and full ASCII keyboard. LIKE NEW - New cost S1295.00 - 
ONLY 5559.00 ready to run. 

S/09 with Motorola 128K RAM, I-MPS2, 1-Psrsllet Port, MP- 
09 CPU Csrd S1990. I-DMAF2 Dual 8" Drives with 
Controller S2I90. 1-CDSI 2D Meg Hard Risk SysLeit vlih 
ConCroller S2400. 

I will accept any reasonable counter-offer II 
Call Tom (615) 842-4600 M-K 9 A.H. to 5 P.M. E.S.T. 

«** 

EXORDISC II, EXOTERM 200, EX0CIS0R 784 Printer. 

Tony Stein, Box 9211, Alexsndrla Va. 22104. (903)9 7S-4 766. 



MICROBOX II Single Board Computer 




Hlcrobo* It SBC bar* bosrd <l?»?S Inch) 

flua tprut dim? bare board (4*1 tAth) 

plu» tlro-xtrt and »? a tea uilllCy dUc (4.25 A4J | r*ck ] 

Supplied with Full conn ruction and operating nates. 

Plravare source code on djac. 

$■411 ~C" cuapller (6609) u/J22Vk Krt^lc libraries. 

Saall *C" .QDjptlrr <690l) i»b}tcl. 

Prk«i Include alr*»U postage. 
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Teraa: CUD. Kavaent by International. Honey Order at hASTEJl -CAR D. 



MICRO CONCEPTS 



2 ST STEPHf.KS RoAO CHKLTFfWW CLOS. ENClAHD CLM bAA 
Telephone; (0242) SlQ$2} 



Microbox II t « • 



ul 68"«t b**\ed UlnUlr board roipulrr Pecked 
ulth Inovaiivr tenure* In an easy lo build torn. 

Running under t hr fie* uprrat ln> eyetaji It contains 6CIK of dyoaale raa, 
8K til eproa. hl^h reselullon text and graphic dlaplays. up to iM eectur 
rAadl.r. up to M2 eertor eproa dite, floppy dlac controller. serlAl and 
parallel l/Oi real-Elae dork and eproa pruRraaanr. 

An eproa disc that looks lo Fie* like a standard write protected drive 
fir be P t OK r laatid w>lh *ny I h 1 n R that uau Id me raa 1 1 y be on / loppy - 
Including yiti. ltaelf. A. raa d I ac chat look, a like a atanda rd 
unprotected d i ac acta aa a very fa«t work dlic. Support Lor tvo floppy 
drive* la also on-board. 

Except 1 on al aonochrow graphic tapabt 1 It Ira *tt provided by a NIC7720A 
jtraphlr display controller which '!«§■ vary fast drew|nj( apecda through 
hardware vector, circle , reel angle , pattern and area I 1 1 I generation. 
The Fie* operal Ins; ayatea can be booted froa any standard ayaiea dlac - 
configuration la carried out autout leal ly by the auppl led II r aware - 
and all the usual software c«n be ueed. 

Hlcrobox II can be controlled froa a standard aerial terafnal a aerial / 
parallel keyboard and video oonlior or » nltture of both. 



Specification: 



6BB09t microprocessor supporting, bOt of dynanlc raa and 8K flraware. 

7220A graphic display controller supporting 1 2ft K of dynaalc raa 

partitioned aa wxtochroae video dlaplay and ratsdlsc, 

Te«l dlaplay of B4a24 or 100*2* charactera. Or Invent your o«n fcraat. 

Graphic dlaplay of ?bak.Wb pliela. Very faai hardware vectors etc • 

Coapoalt* video add asperate video / «VOC output a. 

Eproa dlac usinx four 2JI28 devices. An eproa prograaaer la on board. 

floppy dlac controller for 48 or 96 t pi single/double denalty drives. 

Two HS212 aerial ports with prograaauible baudratea. SQ - 19200 baud. 

Cant ranks type para I lei printer p«r t . 

Para I la I keyboard port . 

lattery backed raal-t I ae c lock /calendar ■ 

Oli* awltch ftelect Ion of Input source, output destination and autoboot. 

Additional 1/0 ratability via uaer eipanaloo boaa. 

100'a of Microbox N't currently lo uae uorldwlde. 

The flrawara Includea »yatea> dlagnoar lea , utilities, graphic prlaJtlvea, 
t era! aa 1 aaulator and auto-conflfturatlon that enauree t hat the board 
will boot froa any atandatd Flea *yste»dHac. 

The aoftwara Includes dlac foraatter, printer drivers, dlac allocation, 
alternative terminal eaulatora. eproa proxraaearr rout Inea , te»l-t la* 
Clark support, graphic oacros and deao, character set aourre and ayatea 
e quaic a . 
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S-50 bus/68XX 

Board and/or Computer 

Terminals-CRTs- Printers 

Disk Drives-etc. 

REPAIRS 



NOW AVAIIABU TO ALL S»/6flXX USERS 
Trie Data-Coup Division of CPI is proud to announce the availability 
of their service department facilities to 'ALL' S50 Bus end 66XX 
users. Including all brands, SWTPC - GIMIX - 5SB - HELIX and 
others. Including the single board computers. * Please note that 
klt-bullt components are a special case, and will be handled on an 
Individual basis, it accepted. 

1. It you require service, the first thing you need to do Is cell 
the number below and describe your problem end contlra a Dota-Gasp 
service 4 shipping niafcerl This is very Important, Data-Comp will 
not accept or repair Items not displaying this number! Also we 
cannot advise or help you troubleshoot on the telephone, we can 
give you a shipping number, but NO advlcel Sorry! 

2. All service shipments must Include both a minimum $40.00 
estimate/repair charge and pre-paid return shipping charges 
(should be same amount you pay to ship to Data-Comp). 

3. If you desire a telephone estimate after your repair Item is 
received, Include an additional 15.00 to cover long distance 
cherges. Otherwise an estimate will be mailed to you, if you 
requested an estimate. Estimates aust be requested. Mailed 
estimates slow down the process considerably. However, it repairs 
are not desired, after the estimate is given, the $40.00 shall 
constitute the estimate charge, end the Item(s) will be returned 
unrepaired providing sufficient return shipping charges were 
included with Item to be serviced. Please note that estimates are 
given In dollar amounts only. 

4. Oata-Comp service is the oldest end most experienced general 
550/68XX service department in the world. We have over 
1100,000.00 In parts In stock. We have the most complete set of 
service documents for the various 550/66XX systems of anyone - 
YET. HE DO NOT HAVE EVERYTHING! But we sure have more then anyone 
else. We repair about 90S of ell Items we receive. Cell tor 
additional Information or shipping Instructions, 
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DATA-COMP 

5900 Cassandra Smith Rd. 
Hixson. TN 37343 



(615)842-4607 

Telex 5106006630 
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Now Offering: *FLEX'" (2 Versions) 
AND 'STAR-DOS PLUS +'" 




For Ordering Call 

(615)842-4600 



FROM - DATA-COMP, 



A Family of 100% 68XX Support Facilities 

The Folks who FIRST Put FLEX'" on 

The CoCo 




STAR-DOS PLUS + 

• Functions Same as FLEX 

• Reads - writes FLEX Disks 

• Run FLEX Programs 

• Just type: Run "STAR-DOS" 

• Over 300 ut liries & programs 
lo choose from. 



r 


TSC Editor 




HwiSO.OO 




NOW $35.00 


L 


J 



ALL VERSIONS OF 

+ Read-Write-Dir RS Disk 




+ Run RS Basic from Both 

+ More Free Utlities 

+ Super 800 Support 

+ Free Color Micro Journal 1 yr. sub 



PLUS 

FLEX & STAR-DOS* INCLUDE 

+ External Terminal Program 
+ Test Disk Program 



+ Disk Examine & Repair Program 
+ Memory Examine Program 
+ Many Many More!!! 



TSC Assembler 

Rig ISO 00 
NOW $35.00 



J 



CoCo Disk Drive Systems 



2 TH1NLINE DOUBLK SIDED DOUBLE DENSITY DISK DRIVKS 
SYSTEM WITH POWER SIlPfLY.CABlNKT.DISK DRIVt CABU.JtH 
NEW DESK CONTROLLER JFD-CP WITH J-OOS. JtS-OOS OPEHATINC 
SYSTEMS. $4*9.95 

Specify What CONTROLLER You Want .KM, or IAD 10 SHACK 



TH1NLINE OOUBIE SIDEO 
DOUBLE DENS I TV 40 TRACKS 



$129.95 



Verbatim Diskeltt 



Single Sided Doubla Daoalty 
Double Sided Double Danalty 



24.00 
24.00 



Couli ullei s 



J*M JPD-CP WITH J-OOS 
WITH J-DOS, RS-DOS 
RADIO SHACK I.I 

RADIO SHACK Disk CONTROLLER 1.1 



Disk Drive Cables 



Cable for Ona Drive 
Cable for Two Drives 



$139.95 
•159. 95 
$134.95 

$134.*» 



$ 19.95 
$ 24.95 



64K UPCRAOE 

FOR C,I),E,F. AND COCO II 
HAD 10 SHACK BASIC 1.2 
RADIO SHACK DISK BASIC 1.1 

DISK DRIVE CABINET FOR A 
SINGLE DRIVE 

DISK DRIVE CABINET FOR TWO 
TH1ML1NE DRIVES 



niirus 

EPSON LX-80 
EPSON MX- 70 
EPSON MX- I 00 

ACOSMtlB* tOt BPSOB 

BUB 2E SERIAL BOARD 
BH» 32K RXPAND TO I28K 
EPSON MX-MX-BO RIBBONS 
EPSON LX-80 RIBBONS 
TRACTOR UNITS FOR LX-«0 
CABLES * OTHER INTERFACES 
CALL POD PRICING 



t 29.95 



» 24.95 
J 24.95 



$ 49.95 
$ 49.95 



JJB9.95 
$125.95 
$495.95 



J 19.95 
$1*9.95 
I 7.95 
$ 5.95 
t 39.95 



DATA-COMP 

5900 Cassandra Smith Rd 
Hixson. TN 37343 




c© 




SHIPPIN6 

USA ADD 2*5 

FOREIGN ADO SS 

rtlN. (2.50 


(615)842-4600 

Fck OfOxKinq 

Teiex 5106006630 
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OS-9 M SOFTWARE 

SDISK— Standard disk driver module allows the 
use of 35, 40, or 80 track double sided drives with 
COCO OS-9 plus you can read/write/format the 
OS-9 for mats used by other OS-9 systems. S29.95 

SDISK + BOOTFIX— As above plus boot directly 
from a double sided diskette $35.95 

FILTER KIT #1 — Eleven OS-9 utilities for "wild 
card" directory lists, copies, moves, deletes, 
sorts, etc. Now includes disk sector edit utility 
also. $29.95 ($31.95) 

FILTER KIT #2— Macgen command macro 
generator builds new commands by combining 
old ones with parameter substitution, 10 other 
utilities. $29.95 ($31.95) 

HACKER'S KIT #1— Disassembler and related 
utilities allow disassembly from memory, file. 
$24.95 ($26.95) 

PC-XFER UTILITIES —Utilities to read/write and 
format MS-DOS'" diskettes on CoCo under 
OS-9. Also transfer files between RS disk basic 
and OS-9 (requires sdisk). $45.00 

BOLD prices are CoCo OS-9 format disk, other for- 
mats (in parenthesis) specify format and OS-9 level. 
All orders prepaid or COO, VISA and MasterCard 
accepted. Add $1.50 S&H on prepaid, COO actual 
charges added. 

SS-50C 
1 MEGABYTE RAM BOARD 

Full megabyte of ram with disable options to suit any 
SS-50 6809 system. High reliability, can replace static 
ram for a traction of the cost, $895 tor 2 M hz or $995 
for 225 Mhz board assembled, tested and fully popu- 
lated. (Add S6 shipping and insurance, quantity dis- 
counts available.) 

D.P. Johnson, 7655 S.W. Cedarcrest St. 
Portland, OR 97223 (503) 244-8152 

(For best service call between 9-11 AM Pacific Time.) 

OS-9 is a ifatiemvfc o* Mtcrowara and Molorola Inc 
MS-OOS i> a liadamark ol Microsoft inc 



COMPILER EVALUATION SERVICES 
By: Ron Anderson 

The S.E. MEDIA Division of Computer 

Publiahibg Inc., 

is offering the following SUBSCRIBES 

SERVICE: 

OOHFLLU COMPA1ISOI AMD IV ALU AT I OS UrOftT 

Due Co the conataat and rapid updating and 
enhancement of nuaeroua coapllera, and the 
different utility, appeal, speed, level of 
communication, aeaory usage, etc., of different 
coapllera, the following aervlcea are now being 
offered with periodic update*. 

This aervlce, with updates, will allow you who are 
wary or confused by the various claims of compiler 
vendors, sn opporcunlcy Co review compariaons, 
coaaenca, benchmarks, etc., concerning the many 
different coapllera on the market, for the 6609 
microcomputer. Thus the savings could far offset 
the small coat of thla service. 

Many have purchased coapllera and then discovered 
that the particular compiler purchased either Is 
not the aost efficient for their purposes or does 
not contain features neceaasry for their 
application. Thus the sdded expense of 
purchsslng additional coapller(a) or not being 
able to fully utilize the advantages of high level 
language compilers becomes too expensive. 

The following COMPILERS are reviewed Initially, 
more will be reviewed, coapared and benchmarked 
aa they become available to the author: 



PASCAL 



GSPL WHIMSICAL PL/9 



Initial Subscription - $ 39.95 

(includes 1 year updates) 
Updates for 1 year - $ 14.50 

S.E. MEDIA - C.P.I. 

5900 Cassandra Salth Rd. 

Uiaoa. Tn. 37343 

(615) 842-4601 




GET YOUR 5% DISCOUNT CERTIFICATE! 

Use it any time through Dec. 31, 1986. 

Write or phone for yours today 

because this offer will be withdrawn after Jan. 10, 1986. 

Dealer for 

ELEKTRA — Smoke Signal Broadcasting 

Computer Excellence, Inc. — Computer Systems Consultants, Inc. 

Microware Systems Corp. — Technical Systems Consultants, Inc. 

Catalog available 

AAA Chicago Computer Center 

120 Chestnut Lane — Wheeling IL 60090 

(3 1 2 ) 459 -04 50 t^^^., c w ,^c «»<ai» -,,„ •«■.« 



ILfHTU it t mttaiKk (I »*» Qiitllt Ctmstnt' Cwln 
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Complete Board (No UAH) $495 



Mi' .IfifiU 




III 
II 
II 
rn 


■i 

i 
n 



f nnBirr 



256K, 512K, 1 MEG MEMORY SYSTEM 



H*v tamPttlbte with DMA cum roller*. Kitna a[ up to 2 MM without generating 
MRDY oi Interrupts. Hv am optional on baer-j DAT fur use with CPU C«rda 
wrthouc a OAT. I2BK, Z^K, SI2K or 1M bree P*r card. FkitJ upgradable 
Optional conrtgvrrtkin bJic*» im byic «Wr«5» reach (using memory board DATI 
wtltoui CPU chanjtn *r cables, T >«of limited warranty. 

TUWBO vlnuaJ dish ■oftware and memorV litaKnoulca aupoHtxl wlch the ivsienv 

Prepaid: 126K:S575, 256K:S695, 5l2K:S745, 102*.K:$89S 

Uocneillc shipping and hartdllng $10.00. User* manual: JIS.OO, applicable toward 
ayaiem purchase Cishleri check, COO, personal checks mast clear before 
shlpraent. H*. reildcnti add i% sales tat. Shipped nock lo 30 days. •filer and 
cuMiity dlscoums available. 



COMPUTER EXCELLENCE INC. 
P.O. BOX S442 

CORAL SPRINGS, FL 33065 
,305) 752-6321 



OS-9 SUPPORT FOR FD-2 



i ■ 



NEW! 




NEW! 



Run double densily on an/ S-50 6800 or 5809 computer Who else can 
Oder Ihis capability at these tow prices'' The FD-2 features 
" Control oi up lo lour 51" OS/00 Orives 
' SS-30 or SS-30C compatible 

Use Flex, OS-9, or Star Dos operating systems 
2 MHZ operation with no "slow I/O" required 
' Compatible wiih SWTPC OC1. DC 2, DC3. or DC4 con I rollers 

CD 2 Assembled/Tested Controller Card $149% 

DRV-68 SBOO double density drivers • formal program $ 19 95 

DRV-69 6809 double density drivers • formal program $299$ 

DRV-09 FD-2 Disk Drivers lor OS-9 (Source) 5100 00 

STAR-OOS For SWTPC & FD-2 $ 75 00 



PERIPHERAL TECHNOLOGY 

1480 Terrell Mill Rd . Suite 870 
Marietta. Georgia 30067 



VISA^MASTERCARD/CHECK/COD 

'"OS -9 <s • ira.cia*rnrk oi Microwart md Motorola 



404/973-OCH2 

tfHftz afleSfM 



for the CoCo 
DISK SYSTEM 




XPNOR2 S39.95 each or 2/S76 
This protolype card lealurcs a 40 pin 
connector lor Proietts requiring an on- 
line disk system or ROM paks The 
CoCo signals are brought oul to wire* 
wrap pins Special gold plated spring 
clips provide retiable and noisefree 
disk operation plus solid support lor 
vorttcai mounting ol t he controller The 
*nt ire 4 3> 7 inch card is drilled for ICs 
Assembled, lested and ready lo run 

XPNDR1 $19.95 each or 2/536 
Arugged4 3-6 ?mchbarebreadboard 
Ihgl brings Ihe CoCo signals oul lo 
labeled pads Bo1h XPNDR cards are 
double-sided glasi/ep xy, have gold 
plaled edge conneclorv Ihru-hole 
plating and are designed with heavy 
pow«r and ground buses They're 
drilled lor standard 0.3 and 06 inch 
wide dual in-line wirewrap sockets. 
wilhaO 1 inch grid on theoutboard end 
lor connectors 

SuperGuitfe $3.95 each 
Here is a unique plasttc insert that 
aligns and supports printed circuit 
cards in the CoCo cartridge port Don't 
forget lo ORDER ONE FOR YOUR 
XPNDR CARDS 



included with each XPNOR card 
are 8 pages of APPLICATION 
NOTES to help you learn about 
chips and how to connect them lo 
your CoCo 



To order Or for technical informa- 
tion call 

(206) 782-6809 
weekdays 8 am lo noon 

We pay shipping on prepaid orders 
For immediate shipment send 
check, money order or the number 
and expiration dale oi your VISA or 
MASTERCARD to 

«OBOTK r -y^niC ROSY STEMS 

BOX 30807 SEATTLE. WA 98103 



SOFTWARE DEVELOPERS! 

YOUVE JUST BEEN CIVEN THE ItKST REASON YET 
TO GET OUK USOOO UNIX* DEVELOPMENT SYSTEM 



THE VAR-eBK* SERIES 




vk lira jie.no 

Iniliido Trrlnttt.il iU Mil h.ird disk. 
■iHK HAM Klxiritunrl KltClll.US* 



vmtiramo $u.*«t 

Itlrliuli-s All <»f jtwxr, plus aiMi, 
uim* sin-uuirt 



RESELLERS.' 



IBIT1 PC/059 Campatibilitg 

Smoke Signal can add IBM PC capability lo your 0S9 
system for as little as $1 195 plus software. This is 
an offer that has been eH tended through Oec. IS, 
1995. look for more details in the nenl issue, but if 
you want IBM PC capabilities now, CflU NOUl! 



VAH'WM >» * "«l*fm| 1 ***•*«,* ,* Wir -H&tit 
HBGIiUfSl.* irffWrO lrw*trT>«, k of J» wnir..<V 
■lim It 4iyJCHh 



TO OBTAIN TOt/B VAAJWH 
AT TMXSE LOW nucjat. OOt*TACT> 

H SMOKE SIGNAL 

i: i». .CW'nt i\m> 

MST1.WK HIMkUK.) A'll.KU 

IM1HIMKI WlUO [rlrx^KWWJ'Jft,*. 
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64K SS-50 STATIC RAM 



<c* 



* 



$119 



00 

(48K KIT) 




N *tyt 



*«* 



•* 



Oft 



°*, 



BLANK PC BOARD 

WITH DOCUMENTATION 

$45 



SUPPORT IC» * CAPS - $18.00 
FULL SOCKET SET- $15,00 



ASSEMBLED AND TESTED ADD $50 
FEATURES: 

• Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 

• Fully supports Extended Addressing. 

• 64K draws only approximately 500 MA. 



56K 
64K 



$129 
$139 



200 NS RAMs are standard. (TOSHIBA makes TMM 2016s as fast as 100 NS. FOR 

YOUR HIGH SPEED APPLICATIONS.) 

Board is configured as 3-16K blocks and 8-2K blocks (within any 64K block) 

for maximum flexibility. 

2716 EPROMs may be installed anywhere on Board. 

Top 16K may be disabled in 2K blocks to avoid any I/O conflicts. 

One Board supports both RAM and EPROM. 

RAM supports 2MHZ operation at no extra charge! 

Board may be partially populated in 16K increments 

16K STATIC RAMS? 



CLOSE OUT SPECIAL 

WE HAVE DROPPED OUR 32K 88- W STATIC 
RAM BOARD WHICH USED 2114LOWPOWER 
RAMS. WE WILL SELL THE REMAINING 
STOCK OF BLANK PCS'S WITH DATA FOR 
S17.50 EA. THESE FORMERLY SOLD FOR ISO. 



The new 2K x 8. 24 PIN, static RAMs are the next generation ol high density, high 
speed, low power. RAMs Pioneered by such companies as HITACHI and 
TOSHIBA, and soon to be second sourced by most major US manufacturers, 
these ultra low power parts, feature 2716 compatible pin out Thus fully 
interchangeable ROM/RAM boards are at last a reality, and you get BLINDING 
speed and LOW power thrown in tor virtually nothing 






Digital Research Computers 

(OF TEXAS) 
P.O. BOX 461S65 • GARLAN D. TEXAS 78048 . (214)225-2309 



TERMS: Add S? 00 postage We pay balance Order under SIS add 7M 
handling No C O D We accept Visa and MaslerCharge Tax Res add 5* 
Tax Foreign orders je*cepr Canada) add 20% P ft H Orders over $50. add 
85C lor insurance 
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SOFTWARE FOR 680x SYSTEMS 



SUPER SLEUTH DISASSEMBLERS 
EACH S99-FLEX J101-OS.9 *100-UNIFLEX 
OBJECT-ONLY trarslons: EACH 150-f- LEx.0S4.C0C0 
MMdMft MnMM sourca on dak ash Haas, nckids naf. Hmqi Killing 
ipeotf B800 1.2.3, S.8.*«S0J men or ZMWMOJ irsrjirjn 
OS/9 «o»n sen pmoHM Flex fcm« rjtssot «• infer oas 
COCO DOS available in 8800.1 WAWtt oun |n« 28041080 .5) at) 

CROSS ASSEMBLERS (TRUE ASSEMBLERS, NOT MACRO SETS) 
EACH $50-FLEX,OS/9,UNIFLEX ANY 3 $100 ALL $200 
speci(r (or l8O>.8SaZ.B801.8804.e80S.88O*.Z8.ZW.8M8.B031.8OB9.68O00 
bu». rrauar. taamanflnj aossassarrt*» nC,*tt (oacVuffcasf uUkmi 
e-tw (not 86000) rami VxAir»d with sit MwtwWn (la $200) 

OeSUGONQ SIMULATORS FOR POPULAR UCROPROCE SSOR5 
EACH $75 FLEX $100-OS/ S80-UNIFLEX 
O -It T-ONLY wrslons; EACH ISO-COCO FLEX.COCO OSS 
» u»«J .n i y UmiwimaKn hckoa «Msssmu» trxmamno. twvary easing 
spacrfy tar 6800/1. (14)880$. 8502,6809 OS* 280 FLEX 

ASSEMB ER CODE TRANSLATORS FOR 6502, £800/1, £80 

8902 to 8809 7S-FLEX SSS-OS/1 180-UNIFLEX 

8800/1 to 8809 8 8809 » palMn-ind JS0-FLEX I7S-0&S ISO-UNIFLEX 

FULL-SCREEN XBASIC PROGRAMS witr, curaw control 
AVAILABLE FOR FLEX, UNIFLEX, AND MSOOS 

DtSPLAV GENERATOWDOCUMENTC* ISO w'aoures, I2S mrllhoul 

MAII INC. LIST SYSTEM |100 Kr'Kuia, ISO milhotil 

INVENTORY WITH MRP 1 1 00 Maim, »S0 wlltioul 

T48ULARASASPHEAOSHEET »I00 woooros. »0 wtOMA 



DISK AND XBASIC UTILITY PROGRAM LIBRARY 
SO-FLEX S30UNIFLEX/MSDOS 

«dA <tts* sectors, soil fliraaWy. manum miDa caiaroo, da oak sorts . 
mi)<n>Kini>« o( BASIC program, wot BASIC procrsm. «c 
rs*vfl£X vaslans trends Bart end *wr»w anf/ 

CMOOEM TELECOMMUNICATIONS PROGRAM 
$100.FLEX,OS/9,UNIFLEX 
0BJECT.ONLY vtrslons: EACH JSO.FLEX.OS* 

iw»«*Vwi w*> tamral mode, «e trmnsfw. MOOEM7. XON XOFF. «c 
lor COCO as) navCOCO, Omas rsatal COCO rrwton port n>B MOO Baud 



HARDWARE & SERVICES 

5-25" DISKETTES 
EACH 10PACK $12.50-SSSD/SSDDiOSDD J20-DSQD 

A/nfOzrwruda.guarMaal 100% r»ial(|r. ««rl TwakldML rw> rasjs. and tat 

SS-50C 256K 1.5MHz MEMORY BOARDS 
EACH BLANK $60 ASSEMBLED AND TESTED $350 

*«h nauanri manual, mus. and osssylinsial Para '»*"»» svsiaBa 

AOOmONA L SERVICES FOR THE COMPUTING COMMUNITY 
CUSTOMIZED PROORAMWMQ 

as wfJ oaasftDi anvoj *» pmyVsma dafcatari In Ms scrratsansn or in our 
nrucrsaa *«■ » * *» ) a*bi4i tat or to now rww oracajasn: la charge 
hx svert aasanSzafcy rJsBsnds upon ta iraAaWSty or #w mtW*v*r* 

CONTRACT PROGRAMMrNO 
«m« tftfl crane niwi prognvr* or rrccfty artr*^ pragrsma on 4 oarsrad tMra*. 
a«a»fcaMr«t«prt>i%J*dunv«t*0^yaara;«aa»'*aJ»c«wrifcrt<» 
rava parferrrad aar4rad rjrorjsmmno mdudemoa P°ct*B mgrMi gt 
«a4rM . IrsVJng IBM, Burroggh>.l**nc, I U » |» rA moa pnpUar 
maoWr. or rrrtisiivan. Induing OEC EM. OTA HP. AT8T. and men 
popular bins* or utenjjnp mawx inckaang eaoon . 8809. 280. 8S0J. 
saooo, ialng rnol! •pprqrUa tanpuaaa and opr«a»fl rrram. on tywrra 
ranoing in ttta *om larga aaaoormuKatTa to t*^» boad oorooaxf; 
r«(/vp »wcD*^1proorarrinwig»u*a»/ by t»» nrxr or toy r/a teak. 

CONSULTING 
waaflaavArJerangeglrjuaTaai andacrHca omaiPTj arvtaa, inrAjoV\ 
■anvtai. Mm. TaWng, a/id rlraigti. omnytook i »najj wcrjnrx»»; 

B^*»T^|niO«rurr«^ttr«» T r^r«r^urjr^orr«.trr«.arida«()«r««i 



Compular Systems Consultants, Inc. 

1454 Lalta Lan«. Conyera, GA 30207 

Telephone 404-403-1717 or 4570 

We take ordsra at any time, but please 
plan discussions alter 6, It possible. 

Contact ua about catalog, dealer, discounts, and services. 
Moel programs In aourcat give computer, OS, disk size. 
25% off multiple purchasea ot same program on one order. 
VISA and MASTER CARD occupied; US tunde only, please. 
Add GA sale* lax (II In GA) and 5% shipping. 

ruN9fL£XriTaa^aW8r»ar»Cas»u«aa».OSr»irriM Uu aaa;OOCOImTaia>. 



SOFTWARE. 
HARDCORE 



tFORTH® 

from TALBOT MICROSYSTEMS 
NEW SYSTEMS FOR 
6301/6801, 6809, and 68000 



" FORTH PROGRAMMING TOOLS Irom Ihe 68XX4X " 
■" FORTH specialists — get Ihe best!! " 

NOW AVAILABLE — A variety ot rom and disk FORTH systems to 
run on and'or do TARGET COMPILATION lor 

6800. 6301/6801, 6809, 68000. 8080. Z80 

Write or call lor information on a special system to lit your require- 
ment. 

Standard syslems available lor these hardware — 

EPSON HX-20 rom system and target compiler 

6809 rom systems lor SS-50. EXORCISER. STD, ETC 

COLOR COMPUTER 

6800/6809 FLEX or EXORCISER disk systems 

66000 rom based systems 

66000 CPM-68K disk syslems, MODEL 11/12/16 

(FORTH is a relmed version ot FORTH Interesl Group standard 
FORTH, faster than FIG-FORTH. FORTH is both a compiler and 
an interpreter. It executes orders of magnitudes faster than inter- 
pretive BASIC MORE IMPORTANT. CODE DEVELOPMENT 
AND TESTING (s much, much faster than complied languages 
such as PASCAL and C If Software DEVELOPMENT COSTS are 
an important concern for you, you need FORTH! 

firmFORTH ' is for the programmer who needs to squeeze the 
most into roms. It is a professional programmer's tool for compact 
rommable code for controller applications. 

* (FORTH and (irmFORTH sis HarJemaik* 01 TalOot icrosyslams 
" FLEX a 4 trademark ol TeO»«^l SysJprrri Consultants. Inc 
1" Cf M-88K a trademark or DioHal Rnasreh inc 



— > 'FORTH SYSTEMS <- 

For all FLEX syslems: GIMIX. SWTP, SSB. or EXORcisor Specify 
5 or 8 inch diskette, hardware type, and 6800 or 6809. 

" tFORTH — extended tig FORTH (1 disk) $100 ($15) 

wilh fig tine editor. 

" tFORTH + — morel (3 5* or 2 8* disks) $250 ($25) 

adds screen editor, assembler, extended data types, utilities, 
games, and debugging aids. 

" TRS-eO COLORFORTH— available from The Micro Works 

" firm FORTH — 6809 only. $350 ($10) 

For target compilations to rommable code. 
Automatically deletes unused code. Includes HOST system 
source and target nucleus source. No royalty on targets Re- 
quires but does not include IFORTH + . 

" FORTH PROGRAMMING AIDS — elaborate decompiled 150 

" tFORTH for HX-20, in 16K roms for expansion unit or replace 
BASIC $170 

" lFORTH»S8K for CP/M-68K 8* disk system $290 

Makes Model 16 a super software development system 

" Nautilus Systems Cross Compiler 

— Requires: tFORTH + HOST + at least one TARGET: 

— HOST system code (6809 or 68000) $200 

— TARGET source code: 6800-$200, 6301/6801— $200 
same plus HX-20 extensions — $300 

6809— $300 , 8080/Z80— $200, 68000- $350 

Manuals available separately — price in ( \, 
Add Sfi.system lor shipping. $15 lor foreign air 



TALBOT MICROSYSTEMS 1927 Curtis Ave., Redondo Beach, CA 90278 (213) 376 9941 
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WINDRUSH MICRO SYSTEMS 



UPROM II 

AAOCRMS end vEAJHEl; U/W, 
T2508, 12716, r25»6, I?7W/27J?», 
p)CN6876</6.. I276</2764*, t?5«H, 
127125/27128*. and !2r2Se. 

(•Intat, 1*1*<at, "-motorola. 

wo m-horhi |tt hooih.es BEBUiHEOf 

ftl-WBtT IPtttMi Ml Hti7 SOPPORTEO 

INTEL'* 1niel19«(H progr ja* ing 
(ta) taeieiiented for lnc«l 

2764, 2712 and 2T23A dtvuti. 
Inttlllgtnt oragraMlno. reduttl. 
the average OrOgf***lf< tfwa of ■ 
276* froa 7 ■Inullf ta 1 alnuta 
IS itcomot (under fhk> with 
A grt»itT 4B»iov«d reilebflity. 

I^j/ 1 fully ancloted P*Hl ulih 5* 

Het ribbon cMIt for connt ct ton 
to the halt nwnr MC4821 PI A 

interface boArd. 

MM ° aofTware for FLE1 AM OS9 
(Level 1 or 2, verelort t.2). 

B1HABT DJSk: FIVE ot(*et Loader 
■uppiled » 1 1 h flEX, MOOS end. 0S9. 

Herx* dr1*fn lOfnare provide*, th* 'oiLowirvg f>cUtt1eij 

*. flLl ■ Aelected area ol the buffer with • HEX C«»r. 

b. MOVE , block* of data. 

c. IW th* buffer in HE1 And ASCII. 

d. f I NO a tiring oi by1e» In tht buffer, 

e. EXAR-INE'CHANCE . 1*10 content* of 1 ht bufftr. 

f. CRC ...... check, cub a teletted area of tht buffar. 

g. COPT ....... a selected wf of an (PHOH into In* bufftr. 

h. VERIM ......... a Selected *r** ol an EPAO*. egetmt iha buffar. 

i. PROGRAM ........ a selected erta of an EPDOM with data In tht buffer. 

j. SELECT ......... a r*-m EPSO" tyoe (ralurn lo lyoil n*^UJ . 

k. [N1ER tha arete* wonlior. 

I RETUfN .,.....-. to the operating tyitea. 

J.. EtECllH ........ any DOS utility tortly In f LEI and 059 versions). 

fLEl ANP OS* VERSIONS AVAILAPU FWM SlWtt. SSB/jWK CONTACT US DIRECT. 




PL/9 



■ friendly Inter-act We envlronetnt «Mri you hav* INSiAHT access to th* 
Editor, tht Compiler, •'VJ th* 1 race-Be bugger , which, aaongit other 
thing*., een *invte etep the prograt a SOURCE tlna at a liar. Tou alao 
have direct acctia to Amy FiE* utility end your ijitea «*nltor. 

• BW Peg* B*nv«i organised Al A tutorial »1 1 h plenty of nlDvLfi. 

> Flit SINGLE PASS CC«*0 U*r produces IK or COMPACT And IA$T 630? e>*chin* 
cod* output oar alnut* Miib no run-tie* overhead* or iTcanss f*ai. 

« fuLLy coapottDle »IU T St le.t editor lofUt disk flltl. 

■ Stflntd And un*lgn*d 6*16$ *nd UtttMKtt* U-tU 'LO«tlncj (ralnl tEALi. 

• vacto^i (UngtT dl««ri«ilon irrinl ml potnti'i ara lUDparlad. 

• rtfthtaat teat txpfaat lottt; <t), (>}, (•)„ £/), oodului <\J/ negation <-) 

■ Eiiprtialon auiluatori: <»J, !<», (<>, <?), (>■), (<■> 

• Bit OParatori: UW>, (041), (f«/l«), <KOT), (SHUT), (SUAP) 

• Logical oparaton; 1.AN0), [.0*t), C.EOH/X09) 

• Control itataaenta: II . .THEN. .ELSE, If..C»St1 ..CASE2..ELSC, 6f CIN..ENr>, 
UHtLC, REPEAI..UH1U, HfPE At . ,f OBE VC R, CALL, JiaV, K£fURM, BKEAX, 1.010. 

• Plract accaia to (ACCA), C»CC8). <ACC0>. CKBlG), <CCP.) **d (STAtuJ. 

• FIULT liiPfWrU In* «6a09 AESEt, Aa»I, *IS0, IM, SKI, SWlI* «nd SW13 
vadora. Nrltlne a talf-atart Infl iUom po«ar*up) crcqrim thai uaaa AMY, 
or JH.L. of th* AC6809 lnT*rruptt «• •*• abtolut* tTUpi 

• Hachfn* coda «*y b* t«b«cM*« In th* proBria via th* 'SEN' ititcttnt, Thlt 
en*blia )W* to cod* crltteat routine* In aeteably langutO* and *«6*d thaa 
In tht PL/9 progrea <«ia 'MACE' lor dttllli), 

• Proc*dur*i •*/ tw oa«ftd arid aay ralurn varfablti. Thia ukai thaa 
funet torn vnlch bthav* ia though thty »*rt «n lnt*Qral pari ol PL/9. 

• S*vrr*I fully ttocuatntid library proctdwr* aodulia «r* luppL ltd: 10SU8S, 
SITIC, NAHQlO, MEEIO, fLEXlO, SCIPACK, S1RSUBS, BASTRING, and RE ALCOA). 

■■■■ THIS IS THE WQSt EfFlCl£MT COMPILER I WAVE FOVWB TO OATE. ' 

<Juet*d froa> Hon Arovrscns fLEx Ua*r Ptet«t coluain In ' 8. N**d m9 lay aort7 



MACE/XMACE/ASM05 

AIL of thctt product! Tutur* a hight7 prochictlv* *A*1ro<ui*nt th«ra ih« 
«dltor and tha eattabWr r«*ld« In t***er y locfatftfr. ten* art th* **y« of 
ttdiul dilk load and t*tf* Optratiojn uhlt* YO\i ar* d*bU9«1ng your cod*. 

■ frttnoly Inttr-ACtlv* env1ron««ni «htrt you hav* initant accat* to the 
fdl tor arid tht Aiaaatitvr, tLEl utUCttr* and te»r ftyitca aonltor. 

■ PACE can iIh Product AiAf»60C» (Qt* ttatiamti) for PL/9 «ttn thr 
•xieably Langyaaa icturc* paaard to tha output a* tc*>a*n 1 1 . 

* JtHACE U a rrns an*abt*r lor tht 4*0 /1/2/J/A and iup[wrii tht txltndad 

»*r»*flrtic* of th* A303. 

* ASH03 ff a BrO»I aitv-fclrr for tht o*05. 



D-BUG 



LOOKING for a alnglt ttrp tracer and alnl 1n-ltn* d1iaaae«bl*r 1h«t It *aty 
to uiefl Look no further, you have found it. TM« oachag* ia 1d*it for 
trioae aaill aitawbly language or90raa dabuggtn« aeialO'ia. 0-61)5 occuPfet 
leia than Ak (Includlne it A tteel and variable!) *na m*r b* loaded anywhere 
In aeaory. AIL you db ii LOAO IT, AIM 11 and fj0> (90 cot /«Ja only). 



McCOSH C 



Thla 1* *■ coeiplete a 'C coaptter n you v tl| find on any ooaratlng »y»t«e> 
lor th* 0004. It ii cO*«l»t*l< ctMp»t1b(* with iMtv wj] «nd only lathi 
■Dli-iULdi* fuhfc/i era of little pratttcal uia in an B-bit iK>rLdl3. 

• Prooucia viry efficeni «t*««6t* linguao* aourc* output wHh th* 'C 
»otjrce optionally 1nttrl»av*d aa coaeanta. 

• MU-tft optlalxer will HHvrtein lAJ*-l! c<4t by atrt^l 111, 

• luCttArtt UlrMM«M *"mbl> l*'i.j.jj. t f [!ri.:jr *-t-,. 

• INCLUOES Iti own Btavabttr. Tha TSC ralocetlng eneablar It only required 
If you want to general* your own Hbrarfei. 

• ftia pra~proct»«or, coaollar, ofiHaiier, aeaeabter and loader all nan 
InOcCWndently or unorr Iha "CC* awcutlvt. *CC -i»ei cO«a>H1ni a prograai 
lo «*ecutabl* object ia sTapi* at typing in «CC, HELLO. C <RElUftN> + . 



IEEE -488 



SUPPORTS ALL PRINCIPAL MOVES OF THE lEEE-»"8 (19yV»> BUS SPEC 1' It *TIWH: 



Telfcar 

Listener 

Syitiaj ControUer 



Serial Poll 
parallel Pvil 
Group Trigger 



- flngtc or OuaL Prlaary Atjdrait 

- Seacmdery Addreaa 

- T*U only ... Lllten only 



■ Fully decurented with a c?«pleie reorlnt of the KILOBAUD article on th* 
IEEE buf And tha Motorola Publication 'Getting aboard the ItEE Bum 1 , 

low level at*enbtr language driven lultable for «S0C, ©SOI, 6002, o«C3, 
6904 arid 6IT79 »rt fupplled 1n the fora of tlatlna*. a cota>let* beet to 
back teti procjraa ia alto lupplled in the Fora of a lilting. Theia 
drivers i.av* been cctenttvely teated atwj are filtARANTEEb to wt. 



' Single 4-30 board (4, 8 or 16 eddr*i«*i p*r port], fully tochated, 
plated bua connector* and IEEE Interface cabla aaaeobly. 



old 



PRICES 

6-eUG 16809 tLEl only) S 75. DO 

n*U C 809 FLE1 only) 1 75.00 

■RACE (6809 tLEJC only) . » 94.00 

RS*<K I68OT fLEI only) S 91.00 

PL/9 (6809 FLER ftnlyl - ■ lIQA.QO 

■C £6809 FLEi only) ....,.„„..,....... $295.00 

IEEE-488 with i£EE-i88 cable tit*«6ly S29S.0O 

UPROte-lJ/u with one vinlon of loftwara (no cabla or Intarfac*) .. SM5.00 

UPH0FVI1/C a* ibovt but coaailata ulth cable and S-30 Interface ....*S*5.00 

CA«LE 5' 1«Ht-«T-flaI 50 v*r cabla with JOC connector* t 35.00 

S-SO INT SS-30 interface forUPROH-II tl 30.00 

EIOR INT RotoroVa EX0Rt>ut tElORdieD Interface for uF«)0PJ-|l ... tlVi.OO 

UPKOf* Sfr Software driver* lor 2nd operating ayalaa, 

Specify FLEI or 0S« *HP dl*V i1a«l .................... » 35.0)0 

UPROPI SRC Aaa*af>ly language lourc* (contact ui direct) 

*' t L PRICES ) N.timi AIR WAlL PQlTAftE 

icrai; CK>. Payaant by tnt'l Honey Order. VISA or (USTEIr-CARO elao acc*Pt*d. 

WE STOCK THE FOtLOWWG COMMJUES PfKOOCTS: 
CJMIX.SSB.FHL, MeCftOWAM, TSC, LUCtOATA, LLOYO I/O, 
a. ALFQWO I ASSOCIATES. 

FLEX ltn) 1) a trethlMra Of TtChnlcAl lyitaaa Coniut | «nt • , 01-9 *t») *• « 

trACH>ajirit of Nlcrouar* Stiten Corporation, H»& da} end EXOCciitr Eti) 

art lrad*"#rk> of JtotorelA Ifi co rpor a I ad . 



WORSTEAD LABORATOniES, NORTH WALSHAM, 
NORFOLK, ENGLAND. NR28 9SA. 

TEL: 44 (692) 404066 
TLX: 975548 W MICRO G 
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OK, PLEASE ENTER MY SUBSCRIPTION 
Bill My: Master Charge Q — VISA □ 
Card # Exp. Date 



For □ 1-Year □ 2 Years Q 3 Years 
Enclosed: $^_ 

Name 



Street- 
City 



State 



.Zip. 



My Computer ls:_ 



Subscription Rates 
(Effective March 3, 1985) 

U.S.A.: 1 Year $24.50, 2 Tears $42.50. 3 Tears $64.50 

* Foreign Surface: Add $12.00 per Year to USA Price. 

* Foreign Airmail: Add $48.00 per Year to USA Price. 

* Canada I Mexico: Add $ 9.50 per Year to USA Price. 

* U.S. Cwrency Cash or Check Drawn on s USA Bank IB 



68 Micro Journal 

6900 Cassandra Smith Rd. 

Hlxaon, TN 37343 




VISA 



(615)842-4600 

Telex 5106006630 



ATTENTION all STAR-DOS Usoral 

Me have made some very significant changes. 
Improvements, and additlona to STAR-DOS'. 

STAR-DOS now ,,, handles random files with 

unsurpassed speed even allows random flies to 

be extended ... toads programs faster than ever 
... has extensive error checking to avoid operator 
and system errors ... comes with source code to 
allow you to modify STAR-DOS for your system to 
add automatic date Insertion, time stamping of 
flies (even random flies), and RAM disks up to a 
megabyte ... allows up to ten drives — includes 
a wide selection of utilities which often cost extra 
on other systems . , . comes with superb 
documentation and user support. 

We greatly suggest that you update your present 
copy of STAR-DOS. Just send us your original 
STAR-DOS disk along with 13 to cover postage, 
handling, and a 15-page update manual. 

And if you aren't using STAR-DOS yet 

why not switch from FLEX Urn of Technical 
Systems Consultants) to STAR-DOS (our 
trademark) now? Consider also our SPELL 'N FIX 
and MAGIC SPELL spelling correction programa. 
WRITE 'N SPELL dictionary lookup program, 
HUMBUG monitor and debug system. CHECK 'N 
TAX home accounting system. SBC-02-B 
single-board control computer, and more. Write 
for a catalog, or call us at (911) 241-0267. 



IUI a 



JARlKTTJ? Box 209 Mt. Kisco NY 10S49 



AMXHSON COfVTER CONSOLTAMrS 

A 

Associates 



Ron Anderson, respected author and columnist 
for 68 MICRO JOURNAL announces the Anderson 
Coaputer Consultants 4 Associates, a con- 
sultlng firm dealing primarily In 68XXIX) 
software design. Our wide experience In 
designing 6809 based control systems for 
machine tools Is now available on a 
consultation basis. 

Our experience Includes programming 
machine control functions, signal analysis, 
multi-axis servo control (CNC) and general 
software design and development. We have 
extensive experience In Instrumentation and 
analysis of specialized software. We support 
all popular languages pertaining to the 6809 
and other 68XX(X) processors- 

If you are a manufacturer of a control or 
measuring package that you believe could 
benefit from efficient software, write or call 
Ron Anderson. The fact that any calculation 
you can do with pencil and paper, can be done 
much better with a microcomputer. We will be 
happy to review your problem and offer a 
modern, state-of-the-art microcomputer 
sotutlon . We can do the entire Job or work 
with ^>ur software or hardware engineers. 

Anderson Coaputer Consultants & Associates 

3540 Sturbrldgo Court 

Ann Arbor, Ml 48105 
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INDUSTRIAL PASCAL 
FOR THE 68OOO 



If you're looking for a language to 
write real-time process control software, 
look no further. With the rising cost of 
labor, it is becoming critical that a high 
level language be used whenever possi- 
ble. Find out why over 1400 companies 
have switched to OmegaSoft Pascal for 
their demanding applications. 

OmegaSoft Pascal takes the Pascal 
framework and expands the basic data 
types, operators, functions, and memory 
allocation to fit the needs of real-time 
systems. These additions fit in the same 
structure as Pascal and enhance its use- 
fulness without impairing the excellent 
readability, ease of maintenance, and 
structured design. 

The compiler generates assembly lan- 
guage for assembly and link to run on 
the target system. Since a true relocat- 
ing assembler and linking loader is 
used, only those runtime modules re- 
quired are automatically linked in, pro- 
viding a smaller object module than 
other compilers. 

Large Pascal programs can be split up 
into conveniently sized modules to 
speed the development process. Proce- 
dures, functions, and variables can be 
referenced between Pascal modules and 
assembly language modules by using 
Pascal directives. 

The compiler package includes an in- 
teractive, symbolic debugger. The de- 



T.M. OmegaSoft Is a trademark ol Certified Software Corpor- 
ation OS9/68000 (s a trademark of Mlcroware VERSAdos Is 
a trademark ol Motorola CP/M 68K is a trademark ot ORI 
UNIX is a trademark ol Sell Labs. 



bugger allows setting of breakpoints, 
displaying and changing variables, and 
tracing statements. Debugging can also 
be done at the assembly language level 
when needed. The debugger allows very 
fast turnaround for programs to be run 
on the host system (target system de- 
bugger coming soon). 

The compiler package also includes a 
full relocatable macro assembler and 
linking loader. These are designed to 
support the compiler but may also be us- 
ed for general assembly language devel- 
opment. In addition, a full screen editor 
is included which can be used with a va- 
riety of intelligent terminals. 

Full source code is included for the 
runtime library, the debugger, the screen 
editor, and other support utilities. 

Versions to run under the OS-9/68000 
and VERSAdos operating systems are 
currently available to end-users and 
OEM's. End user price is $900 (domestic) 
or $925 (international). A version for 
CP/M-68K is available for OEM use, with 
OEM versions for UNIX type operating 
systems to follow. 

Similar products to run on a 6809 sys- 
tem and generate 6809 code are also 
available for most major 6809 operating 
systems. 



CERTIFIED SOFTWARE 
CORPORATION 

616 Camino Cabal lo, Nipomo. CA 93444 
Telephone: (805) 929-1395; Telex: 467013 
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Hard Disk Subsystem 
for SS-SO Computers 



This proven suOsy&toi adds hsrd disk speed ino storage 
oaptclty to your oonputer yet requires only one SS-30 slot. 
Softv*r« twlth sourotJ Is included for your choice of 
FLCK9*. OS-9* Level I or Level II, or 03-9 &8K operating 
systeas. The software honors ail operating ay ate* 
conventions. The software is designee Tor the xsbez sina 
controller lnterr*otng to any hard disk drive that contorts 
to the 37506 standard. Four subsystems are available: 

U 27 MB <rorutted> WREN* hero disk, xebec 3I41Q 
controller, 35-30 interface card . all oablea, and 
software for »2850; 

2> 5 MB (ronMtUd> Shuftart 604 hard disk, rest aeae as 
above tor 1750: 

3> no nerd disk, rest saae as aoova lor J600; and 

yj 3S-1Q Interface card and sortware Tor 1200. 
Texas resioents nust aod sales tax. The aubsystea nay be 
mounted within your computer cnassls or In a seperate 
enclosure with power suppiy. ? lease write I include your 
day ano evening phone numbers) tor sore Information, Me 
will return North Anerlca oalla so that any detelled 
answers will be at our expense, we are proud to announce 
our relocation to the growing High-Tech center of the 
Southwest — Austin. We regret that we will be without 
Incoming phone service until our facilities are completed. 

C'HTS'ZP'ZISSS 

P.O. Bo» 9802 - «45 
Austin, Texas 78766 

FLEA Is a traseaark of Teohnloal Systeas Consultants, Ino. 
OS-9 Is a traeeaartt of Kloroware »nd Motorola 
WHEN is a trademark of Control Data Corporation 



OS-9 

USERS GROUP 

...Information Exchange 

...Software Library 
over 40 diskettes 

...Message Of The Day 
periodic newsletter 

Write or Go 0S9 on CompuServe 
for Information 

OS-9 Users Group 

P.O. Box 7566 

Des Moines, IA 50322 

OS-9 ia ■ trademark of Microwara. Inc. 
Tha Uaari Group ia not affiliated with Microwara 



mm 

Computer Engineers 



19535 NE OUSAN 
PHONE: (503) do*- 1097 



POffTlAND, Oft 97230 (USA) 
TEUX 910 3S0 SAAB LLOYO I O 



K.BASIC™ IS HERE 
K.BASIC Is a TSC XBASIC (XPC) compatible COMPILER 

for OS9 A FLEX... price $199 
Here at lost Is o compiler for BASIC that will compile all your 
XBASIC programs. K-BASIC compiles ISCs XBASIC and XPC pro- 
grams to machine code K-BASIC Is reody now to save yO\j 
money and time by teaching your computer to: 

• Think Foster • Conserve Memoiy • 8e Friendlier 

Call (503) 644-1097 for our CATALOG. 
Wo hovo many program* for Mrfou* «omvor» dovoloparsl 

DO™ 

Micro BASIC for OS9. . . $149 
A structured mlrco BASIC for general system control feahjrlng; 
Parameter passing, 10 string variables. 26 numeric variables, 
subroutines, nested loops. Interactive I/O. sequential files, and 
time variables (for applications executing in the background re- 
quired to execute procedures such as disk or tile backups.) in- 
cludes the SEAJJCH and RESCUE UTILITIES "'. (For OS9 ONLY.) 

SEARCH and RESCUE UTILITIES™ 

forO$9...$35 
A super directory search utility Output may be piped to the In- 
cluded utilities to perform die; COPIES. DELETES. MOVES. LISTING 
(pagination), ood FILTERING Some filtering utility programs ore 
included.: ot Interest Is the FILE DATE CHECKING utilities YOUNGER 
and DRAFT (level 2), [For OS9 Level 1 and 2) 



PATCH™ 

Modem Communications for OS9...S39 

PATCH is a modem communications program tor OS9 featuring: 
KEV MACHOS. ASCii TEXT AND BINA/N FILE UP/DOWN LOADING. 
PRINTER COPV. and HELP MENUS. We use It several times eocti 
day wllh our TELEX service, PATCH Is convenient and easy to use. 
Key macros may be pre-stored and Icoded at any time. 



CRASMB™ 

CROSS ASSEMBLER PACKAGE 

for OS9 & FLEX... oil for $399 

Motorola CPU's... $150 

Intel CRTs. . . $150. Ofhea . . . $150 

CRASMB Is the highly occlolmed cross assembler package for 
OS9 and FLEX systems. It turns your 6809 computer Into o de- 
velopment station for these target CPUs: 

6800 6801 6804 6805 6809 6811 6502 
7000 1802 8048 8051 8080 8085 Z8 280 

(68000 16/32 bit cross assembler ... S249) 
CRASMB features: Macros. Conditionals. Long symbol names. 
Symbol cross reference tables. Object code In 4 formats (OS9. 
FIEX. S-1-S9. INTEl HEX!. 



USA 

England: 



Australia: 



v/WA, mc. coo. checks; accepted 

UOYD I/O ISO! 6*4 tOWL Si MEDIA (M0 JM 4*MJ 

VItotov (0W2 4314291, Wndruan (0402 40816V) 

Zoch*rC<n V u1«i(««26 2W|. Kail SoflWOM 104203 4J«1) 
Pari! torjlo Etectranfc* (344 9111) 



KBASC OQ S&WCM and BCSCtf WMS5 

PATCH CR4SVBo<»3aM!*« 1032 cm Itaar^rO o/UOmtO 

QSOfco "orMnxn HEX bo " at ISC 
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CORN ff 



COMPUTED 



N0TWLE3 - BARE CARDS - IIT3 - ASSEMBLED A TESTED 
Stickable Module* KIT AkT 

20 amp POWER 90PPLT a/fan 

■/Disk protect relnj 350.00 400.00 

DISK CABIKET v/refe. k cablea 

leae DRIVES 200.00 250.00 

MOTHER BOARD, 9 9S-50c, 9 9S-30e 

MUX button 225.00 325.00 

Itaa Bara KIT AkT 

IT3 - IFTERKOPT TIMER 

1. 10. 100 par aae. 19.95 29.95 39.95 
PB4 - INTELLIGENT PORT BUFFER 

Single board comput.39.95 114.95 139.95 
DPIA - Dual PIA parallel port. 

4 buffered I/Oa 24.95 69.95 B9.95 

XADB - Eztaaded Addressing 

BAUD (at. PIA port 29.95 69.95 89.95 
KBB - MOTHER BOARD 3S-50c 

v/BAOD gen. 64.95 149.95 199.95 

P1B8 - 18Bt PROM DISK 

21. 276* BPROMe 39.95 79.95 109.95 

rota - Flraeere development 

2, 9E bloeke 39.95 84.95 114.95 
mPR - 2764 PRON burner adapt. 

for 2716 BOWER 19.95 

CHERRY Keyboard a/Cabinet 

94 key capacltlv* 349.95 

TAXAIt 12". 18 Hhr MOHITOR CUBES 146. SS 

AMBER 15B.9 5 

4 MODULE CABIRTT - untlnlebed 150.00 

POWER SUPPLT w/dlak protect 250.00 

♦♦♦»»» M M» MM »TtT M »»»| 

Color Computer 

MONOLIHX - 20 Kb* Monocbrooe 

video driver 15.00 20.00 

CC30 PORT BDS w/poaer aupplr 

5 33-30. 2 Cart 169.95 199.95 

POIBB BOX 6 awltcbed outlete 

trueleat auppreeeloa 29.95 39.95 

RS-232 3-ewltcbed porta 

for above ADD +20.00 «25.00 



■aa. Write for FREE Catalog 

AOD SJ.00 SDm PER ODDER 

"■aaafeal W |S. ADO 51 SALES TAX 


■ 


A 11931 W. Bluemound 
XfJ^ MILWAUKEE. WtS. 
#CE»\.«c (414) 257- 0300 


Road 
53226 
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Dlak-l Flleaorc, MlnlcaC, Mlnlcopy, Hlnlfns, 

••Lifetime, **Poecry, **Foodllec, **DleC. 
Dlsk-2 Dlskedit w/ lnst.& fixes, Prlne, *Frax>d, 

**Snoopy, "Football, "Hexpawn ,**Llf et loe 
Dlek-3 Cbug09, Seel, SecZ . Find, Tsble2, lntext, 

Dlsk-exp, 'Dlakasve. 
Disk-* Mailing Program, *Flnddat, *Chsnge, 

*Testdlek. 
DISK-) "D1SKK1X 1, *D1SKF1X 2, **LETTER, 

**LOVEStCN, **BLACKJAK, **B0WL1NC. 
Dlak-6 "Purchase Order, Index (Disk file lndx) 
Dlak-7 Linking Loader, Rload , Harkness 
Diak-8 Crlest, Lanpher (Hay 82) 
Diak-9 DaCecopy, Dlskflx9 (Aug B2) 
Dlak-10 Koae Accounting (July 82) 
Dlak-l 1 Dissembler (June B4) 
Dlsk-12 Hodem6B (Hay B4) 
01ak-13 *lnltnf68, TeatrafbB, 'Cleanup, *Dekallgn, 

Help, Dste.Txt 
Dlak-l* *lnlt, *Teat, 'Terminal, *Flnd, 'Dlakedit, 

lnlt.Lib 
Dlek-15 Modeo9 + Updates (Dec. 84 Gilchrist) to 

Hodem9 (April B4 Conmo) 
Dlak-16 Copy.Txt , Copy. Doc, Cat.Txt, Cat.Boc 
Dlak-17 Hatch Utility, RATHAS, A Baltic Preprocessor 
Dlak-IB Parse. Mod, Slze.Umd (Sept. Hi Armstrong), 

CHDCODE, CHD.Txt (Sept. 85 Spray) 
Disk- 19 Clock, Date, Copy, Cat, PDEL.Aem o Doc, 

Errors. Sys, Do, Log. Asm a Doc, 
Dlak-20 UNIX Like Tools (July I, Sept. 85 Taylor a 

Gilchrist). Oregon. C, Grep.C, LS.C, FDUHP.C 
Dlak-21 Utilities & Games - Date, Life, Hadness, 

Touch, Goblin, Starehot, & 15 more. 
Dlsk-22 Read CPM & Non-FLEX Disks. Fraser Hay 

1984. 
Dlak-23 ISAH, Indexed sequential file accessing 

methods. Condon Nov. Iu85. 



This Is a reader service OMLTI No Warranty Is 
offered or Implied, they are •• received by "68" 
Micro Joornal, and are for reader convenience ONLY 
(some HAY Include fixes or patches). Also 6800 and 
6809 programs are mixed, as each Is fairly simple 
(mostly) to convert to the other. 

PRICE: 8" Disk $14.95 - 5" Disk $12.95 

68' HICSO JOUUAL 

POB 794 
Hixson, TN 37343 
615-842-4600 

* Indicates 6800 

** Indicates BASIC SWTPC or TSC 

6809 no Indicator. 

(USTKK CARD - VISA Accepted 
Foreign — add 10Z for Surface 
or 20Z for Air I I 



Tetex 5106006630 
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PT-69 SINGLE BOARD COMPUTER SYSTEMS 
NOW WITH WINCHESTER OR FLOPPY DISK DRIVES 

The proven PT-69 Single Board Computer line is expanding Systems now can be Winchester or floppy-based Available also in a smaller 
cabinet without drives for dedicated systems with nomas! storage requirements 

' 1 MHZ 6B09E Processor ' 2 RS 232 Serial Ports (6850) ' 2 8-btt Parallel Ports (6821) 

■ Time-Of-Day Clock ' 56K RAM 2K/4K EPROM ■ 2797 Floppy Disk Controller 



Custom 0*$>gn InQutrmt HWco™ 





»pi6w wtNCHEsrrn svstm tun*. *s 

IncliKkn S HE6WlnOiAt<r Drive. 2 40 (rack DS/DD Drives. 
PertUc. Printer Interface • cnelce of OS/S or STAR MS 

•PT*95? riOPPT STSItn »»9S IS 

Inclwan PI69 8o«r«. 7 0S/0D 40 IRK b 1/4" drives, cabinet. 
switching peaer supply, OS/9 or STAR DOS 



Floppy Syilvm 

♦ PI 69AA5MMRU0»i HSIfO BOARD 
.05/9 

• STAR- DOS 



1279 00 
.700 00 
I iOOO 



VISA MASTERCARO/CHECK/COD 



PERIPHERAL TECHNOLOGY 

1480 Terrell Mill Rd . Suite 870 
Marietta. Georgia 30067 

Telex K880584 404/973-0042 



OU.I CM WRITE FOR fiDOrriOMAl 
CONflGUHATiONS 



XDMS 

Data Management System 



DISP1.AT I / INPUT /Z.: 





/COMWAMd? 




System Architecture 

WESTCHESTER ApplKd BuaplndPfps Byata 
roil Olflc. Bo. 1»7 
I'lirtllll Minor, ».T. 103 1» 



XBMa Btt i Mm « ntm«nt Byittrn 

Th. XDMS D.t. fl.n.a.'n.M "rtt.rn I. .v. li.pl. In tnr.p l.vtlt, C.ch 
l.v.l Includ.* lr>. XDMS nucl.ul. V MOSN utility .nd S r «tflffi Doatmant ation 
for l.v.l III. XDMS is om of tna Ant po.«rful tytl*Mi« avalla.la for 
4009 toffrUlin and may DO und for 1 wid. vari.ly of applita llont . XDMS 
linn •!• r.fliatarad In Ovr dlt.Ddt. to ftrml dl.l r I bu I ion of product 
IRfieuntrntiitl and waliB.tien of w..r upQ.ada. and malM.r>an[a radjitaala, 

JCPMB Laev^l 1 

XDMi Le*el 1 consist* of D£rilt£. UPDATE end REPORT facilities. 
Thia lava] i« intended «■ in "entry ]•»•!" fcyetem. And pet-mil* entry and 
•epor1tnfl of data on a "tubular" basis. TM REPORT facility eupporl* 
rttord and field aelee Hon. field merge, torting, line ca Iculat Ion* , 
Column totals end report t it It nfl . C on I pd L It via a IngUsh -like language 
«r»lth la upaerd compatible Mith level 11. XDHt Level 1 slje.*9 

APMS Ltf^affa. XJ. 

Level [1 add* to Le.el I the powerful OEKEPATI facility. Tfcis faciljtr 

can be ifioufhi of »» a general file procoeaor wnicft can produce reports, 
forms and form letter* a* wen ae file ouipv* ■n.ci> may be re-input to 
the facility, OEM CRATE may fee used in cemplei proce**ir>p applu ation* 
and i» con ir ell ad by a Enf.li in- lit* command language **r..Cr. encompasses 
that utid by Level I. XDHt Level 11 H*v.9S 

XDMB Level lit 

Level III includes all of level II plut a aet of useful DNS Untitle*. 
Tmii utllitie* a*» designed to aid \n the development Afcli meintenence 
of user application* *vnd permit euid.fication of XOMI *y*tem parameter*, 
input «/t<t output of XDMB filee. display And ettM i(i[HIqa of *lle formal, 
jr a p ttie display of numerical «e»a and Other functions. Level HI is 
intended for advanced IDN» user*. XDMS Level 111 ....... . 124*.*9 

X0HS System Documentation only <sl<t. credit toward purchasei. . .* ?a.*9 

XACC Accounting Qyt-m 

Trie X ACC oner at Accounting Br* I em is designed for *mall Business 
en vl rofimefi.t. of ud to 10*000 account I and inventory Item*. Tde *y**om 
intearaloe sccovmring functions and inventory plus the aenerst ledger, 

ot*>er systems. Features user defined accounts* products lor services), 
transection* . invoicing, etc. .t 4 si ly cenfifured to most environment*. 
XACC Oeneral Accounting System •Dae.uirst XDH1, pref. W. 111). . |2**.«) 
XAC< B»*1*m Docvmen I ation only telO. credit toward purchase). • .S 79.91 



WEBXCHEnrilR Applied Iiomlneee Syotmrno 
Post Office Bot !•>■ Bnarcliff Manor, M.T. I09I0 
All eotiusi* t* written In mtero/eieemfa ler and rati timtor MO* f\JLX O/S*. 
TertMt OhKC, Mom7 Ottler, Viae or rUeterchayge. Sblpejent first ctdee. 
Add r«l 11. Ml <>•*.» Forelf* Surface or $13.00 fotalB- Air). Mt Kae aAd 
sale* tea. Specify 5" or I*. 

Jdios: 1. I. fmaiA, (il») »4X-A*99. C*Me«lt«tlo«i tIMtlOlH Ueooa) 
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ALL SYSTEMS INCLUDE: 

* The CLASSY CHASSIS witti a terro- resonant, constant voltage power 
supply mat provides ♦ 8 volts at 30 Amps, + 16 volts at 5 Amps, and 
-16 vote at 5 Amps. 

* GoW plated bus connectors. 

* Double density DMA floppy disk controllers. 

* Complete hardware and software documentation. 

* Necessary cables, tiller plates. 

YOU CAN EXPAND YOUR SYSTEM WITH: 

MASS STORAGE 

Dual 8" DSOO floppies . Cabinet 4 Power Supply S16M.M 

20MB Stream** (under development ) 

1.6MB Oual Speed Floppy (under Oevetopment) 

MEMORY 

#67 Static RAM-64K NMOS (6809 Only) $349.67 

#64 Static RAM-64K CMOS w/tatary (6809 Only) $398.64 

#72 256K CMOS Static RAM w battery $998.72 

#31 16 Socket PROM/ROM/RAM Board (6809 only) $2*8.31 

INTELLIGENT I/O PROCESSOR BOARDS 

significantly reduce systems overhead by handling routine I/O func- 
tions; treeing the host CPU for running user programs. This Improves 
overall system performance and allows user terminals to be run at up 
to 19.2K baud. For use wit!) GMX III and 020 systems. 

#113PoitSeftal-30Pm(0S9) $4*8.11 

#14 3PoitSertal-30Pln(UniFLEX) S4M.14 

#12 Parallel -SO Pin (UniFLEX-020) $538.12 

#13 4PoitSertal-S0Pln(0S9 4UniFLEX-020) $818.13 

I/O BOARDS (6809 SYSTEMS ONLY) 

#41 Serial. 1 Port SM.41 

#43 Serial. 2 Port $128.43 

#46 Serial. 8 Port (0S9/FLEX only) $316.46 

#42 Parallel, 2 Port $88.42 

#44 Parallel. 2 Port (Centronics pinoul) $128 44 

#45 Parallel, 8 Port (0S9/FLEX only) $198.45 

CABLES FOR I/O BOARDS-SPECIFY BOARD 

■95 Cable sets (1 needed par port) $24.93 

#51 Cent B.P. Cabl«for«12&#44 $34.51 

153 Cent. Cable Set $34.53 

OTHER BOARDS 

#66 Prototyping Board -50 Pin. $56 EC 

•33 Prototyping Boa rd-3C Pin $38.33 

WindiushEPAOM Programmer S30(0S9/FLEX 6809 only) $545.08 
CONTACT QlUIX FOR FURTHER DETAILS ON THESE AND 
OTHER BOARDS AND OPTIONS. 

EXPORT MODELS: A00 $30 FOR 50Hz. POWER SUPPLIES. 

ALL PRICES ARE FOB. CHICAGO. 

GIMIX DOES NOT GUARANTEE PERFORMANCE OF ANY GlMIX 

SYSTEMS. BOARDS OR SOF1WARE WHEN USED WITH OTHER 

MANUFACTURERS PRODUCT. 

GIMIX, Inc. reserves tne light to change pricing, terms, and products 

spedtuttons at any time without further nonce. 





GIMIX 2MHZ 6809 SYSTEMS 




GMX 68020 SYSTEMS 


Operating 
Systems 

included 


#49 

0S9 GMX 1/ 

and FLEX 


•39 

0S9 GMX 11/ 
and FLEX 


•79 

0S9 GMX 111/ 

and FLEX 


•39 

UnrFLEX 


•89 

UnJFLEX III 


•020 
0S9/68020 


•020 
UnlFLEX VM 


CPU Included 


•OS 


•OS 


GMX III 


•OS 


GMX III 


GMX 020 


GMX 020 - MMU 


Seiial Ports 
included 


2 


2 


3 Intelligent 


2 


3 intelligent 


3 Intelligent 


3 intelligent 


High Speed 
Static RAM 


64KB 


256KB 


256KB 


256KB 


256KB 


512KB 


t Megabyte 


PRICES OF 
SYSTEMS WITH: 

Dual 80 Track 
DSOO Drives 


$2996 49 


$3398 39 


$4898.79 


N/A 


N/A 


N/A 


N/A 


19MB Hard Disk 
and one 80 hack 
Floppy Disk 


$5598.49 


$5998 39 


$7798 79 


$5998.39 


$809889 


$11,680.20 


$13,680.20 


72 MB Hard Disk 
and one 80 track 


$7598.49 


$7998.39 


$9798.79 


$7998.39 


$10,09889 


$13,680.20 


$15,680.20 


a 72MB - a 6MB 
removable pack 
hard disk and one 
80 track floppy 


$9098.49 


$949B30 


N/A 


$9498.39 


N/A 


N/A 


N/A 


a 72MB * a 12M8 
removable pack 
hard disk and one 
80 track floppy 


N/A 


N/A 


$11,298.79 


N/A 


$11,598.89 


$15,180.20 


$17,180.20 


GMX 6809 0S9/ 
FLEX SYSTEMS 
SOFTWARE 

0S9 + Editor. 
Asswmben. Debugger 


GMX 1 
included 


GMX II 
Included 


GMX III 

Included 


TO ORDER BY MAIL: SEND CHECK OR MONEY ORDER OR USE YOUR VISA OR MASTER 
Chab&e PisiMiikM 3 timk3 for personal chK*iBci*«. U.S. organ add *5 handl- 
ing If order is urefe' 1200 00 Foreign orfiars add StO handling « ordtr Is under 
$200.00. Foreign orders over $200 00 wH be ahippsl via Emery Air fratgm COLLECT, 
and tut wffl chirp* no landing Al orders mutt be preaito In U S fund] PtoSM note 


FLEX 


Included 


Included 


inckHJod 


tfat foreign checks lave been liking about 8 weeks tor coaecoon so wa wouH admit 
arfrkig raenay. er checks drawn on a bar* account In Bull S Ow bank bin* Continen- 
tal IMnokV National Sank of Chfceoo. 23t S USaaa Straat. Cnfeaga, 11 80653, araml 
numbar 73-32033 


GMXBUG Monitor 


Included 


Included 


Included 


Basic 09. RunB (0S9) 


included 


Included 


Included 


RMS I0S9) 


included 


included 


included 




DO (0S9) 


Included 


Included 


included 


BASIC 09 and DS-9 are trademarks at uicroware iysaims corv and MtflWaXA. Inc 
FLEX and UMFLEX ire trademark] or Tnchnfcji Sysevrs dndtMBj. Inc. GIMIX, 
GHOST. GMX. CLASSY CHASSIS, art trademarks of GIMIX. Inc 


VDtsk for FLEX 


N/A 


Included 


Included 


RAMOisk for 0S9 


N/A 


$125 option 


Included 




0-FLEX 


N/A 


$250 option 


Included 




Suppoit ROM 


N/A N/A 


Included 


cir ix / • • k* 


Hardware CRC 


N/A N/A 


Included 










■■■1 lll#% i.m afl 



Available: Wide variety of languages and other software 
lor use with erther OS-9 or FLEX. 

All GIMIX versions of 0S9 can read and write RS color 
computer format 0S9 disks, as well as the 
Mlcroware/6lMlX standard formal. 

AH 0S9/FLEX system alow you to software seexf erther 
operating system. 



1337 WEST 37th PLACE 

CHICAGO, ILLINOIS 60609 

(312) 927-5510 . TWX 910-221-4055 



Southwest 
Technical 
Products 
Announces: 



CAD Southwest 
A Computer-Aided 
Drafting System 




Designed 
for the Professions! 

Southwest 's Computef -Aided Oafiing 
System represents the scale of the 
art in computer-aided drafting. It 
eliminates the need For labor intensive 
drafting using the traditional T-square 
and triangle approach. Via keyboard or a 
sophisticated digitizer tablet, you can 
quickly arid easily prepare even the most 
complicated drawings. Naturally, criaoges 
can be easily made at any time. A library 
of standard symbols Is provided as well 
as the flexibility of a user defined symbol 
library. Drawings may be printed on 
either a line primer or a plotter. 



:.-:■ 




Increased PrvductMiy 
A powerful set of «Dmmands allows 
even trie noviae user the ability to quickly 
and easily prepare complex diawings. The 
experienced draftsman will quickly teallze 
substantial Improvements In productivity. 
The computer assumes the entire burden 
of line and arc drawing, freeing the user 
to concentrate on design Issues. A partial 
list of key features Includes: 

• no limit to number of drawings 

• standard grid pattern, used For refer- 
ence; will increase or decrease with 
scale 

• isometric grid pattern - similar to 
standard 

• library mode - complete objects can 
be diawii and stored in users' library 
for later use in any drawing 

• mirror objects - images of objects In 
Horary can be easily duplicated 

• the terminal screen acts as a window 
by whMi the user can quickly move 
large drawings 



draw/delete functions: 

- arc/fillets (solid or dashed) 

- circles isoSd or dashed) 

- lines and sequence of lines [solid or 
dashed) 

- true honzcmal/ vertical lines 

- center lines 

- dimension lines 
-ezwnsJon lines 

- dimension lines perpendicular to ex- 
tension lines 

- extension lines perpendicular to 
normal lines 

- boxes: any shape or size defined by 
two diagona I endpoints 

- library objects, previously defined 
library objects drawn or deleted 
with a wupte of keystrokes 

• area Wis 

• special runtDors: 

- change line mode: solid to 
dashed. dasf*d to solid 

- sector circle: save portion of 
drdeasarc 

- segment lines; break single Nne 
into two lines 

• scale using factor - choose de- 
sired scale multiple 

• scale using window - "zoom in" 
and work on a selected area 

«mplCTe set of labels - ■omprenensrve 
label generation component to anno- 
tate diawings 

overlays - any diawing can have up 
to 255 overlays 
cursor functions: 

• variable size: user can scale cursor to 
convenient size 

- variable step: user can select single 
pixel/giant step for movement of 
cursor 

- homing: cursor can be quickly moved 
to 9 possible predefined home posi- 
tions on screen 



• complete dlsk-ontnted library main- 
tains routines that allow you to 
maintain your drawings on the 
aompuier disk 




"Rffl 
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LSI 1 



M 



8fg system Features 

As you prepare your drawing, you can 
control which portion is available for 
work on the terminal screen. Simple 
KMTvrwmds allow you to move up, down 
and sideways to view different segments 
of a large drawing. "CAD ZOOM" allows 
you to quickly "zoom in," turning your 
terminal into a aDrnputorized magnifying 
glass for detailed review of individual 
sections. "CAD ZOOM" compresses the 
drawing, allowing you to look at multiple 
sets of trie drawing on one screen. 

A powerful overlay feature supports up 
to 2SS overlays for the same drawing. 
For example, you may wish to have the 
rioor plan on one overlay, electrical 
wiring on a second, HVAC on a third, 
and so forth. 

The Right Equipment 
CAD Southwest runs on the proven 
SWTPc family of computers operating 
under UhjFl£X«, a UNIX*" like operating 
system Five to eighteen terminals, de- 
pending on the model number, can be 
attached to the CPU with a variety of 
hard disk storage tor your drawings. 
The Industrial quality X-I2 termi- 
nal from Southwest provides crisp 
resak/ticri and a 92-key keyboard. A 
digitizing cablet may be optjonaRy 
attached to each terminal. 

Drawings may be printed on a 
dot matrix printer or optionally on 
an 8 color pen plotter. 



aeni nr'im. avis* ism. ; « «u'«*sl nut ■ 



UNIX" Is a trademark or ATST Bet Larxramm 
uhtft£X* is a rcgURtd oaamaf* or Tertntrf 
Sysmns Gx&jT&yx tic. 




SouOm«n Technical Fioduco, Corp. 



219 \X*st CTvasody • San Antonio. Texas 78216 



1512) 344-02*1 






Southwest 
Technical 
Products 
Announces: 



TheX-12+. . - 

The Solutions System 




The X-12+ System is a state of 
the art Systems Solution for 
multi-user data-intensive 
applications. 

Solutions Hardware 

At the heart of the system is a 
Motorola 68B09 processor deliv- 
ered with 256KB (optionally ex- 
pandable to I megabyte!, and 
bench-marked at performances 




comparable to those of several 
Motorola 68000 UNIX"* systems. 

The central processing unit, main 
memory and four RS232 serial ports 
are housed in the CRT cabinet 
enclosure. 

The X-12 CRT is a professional 
quality unit which includes a de- 



tached 92 key keyboard including 
15 function keys, cursor control 
keys, and a numeric keypad. 

Next to the X-12 CRT sits the 
mass storage sub-system. The X-12* 
Model WC20 includes a 22 mega- 
byte (formatted) half height S'A" 
Winchester Mass Storage Device 
with an 85 millisecond average 
access time and a 5'/«" floppy disk 
with 1.25 megabytes. The X-I2+ 
WC40 system includes a 33 mega- 
byte (formatted) Winchester 
disk with an average 85 
millisecond access time. 

The WC40 Model in- 
cludes a 5'A' floppy as 
well as a 40 megabyte 
streaming tape sub- 
system. 
A variety of additional 
peripherals are available 
for X-I2+ systems in- 
cluding printers, digi- 
tizers, and plotters. 
Both systems pro- 
vide the user with 
an exceptional 
price/perform- 
ance solution. 



Solutions Software 

(JniFLEX® (a UNIX" look- 
alike) provides a powerful 
multi-user, multi-tasking op- 
erating system. UniFLEX® 



' 



. 



resides in less than 60,000 bytes of 
main memory. Naturally, the X-12' 
Solutions System supports Basic. 
"C", Cobol. Fortran, and Pascal, 
making the X-12+ an ideal develop- 
ment environment for a variety of 
applications. 

Data Base, Word Processing, and 
Spread Sheet programs are only a 
few of the many application prod- 
ucts available for the Solutions 
System A variety of vertical appli- 
cation products are available 
through an international Network 
of Southwest Dealers. 

Southwest Technical Products 
Corporation, provides complete 
manufacturing, training, mainte- 
nance and marketing support to its 
dealers and users from its 68.000 
square foot facili- 
ty in San Anto- 
nio. Texas. Its 20 
year commitment 
to excellence is 
demonstrated by 
the X-I2+ family 
of Systems 
Solutions, 

UNIX - " Is a iiaoemafX or AT&T Sell LaDoiatories 
l*iiFLfX* is a registered (radwiart of Tecfinical 
Systems Consultants. Inc. 





Soulhwest Technical Products. Corp. 



21"? West Rhapsody • San Antonio. Texas 78216 



(SI2| 344-024t 



